#!/usr/bin/perl
$d="Happy birthday, Dad!";$t="Love, Dylan. Your son.";
*AUTOLOAD = *_;@h=split//,$d;@x=split//,$t;sub _ {/:+/;$r="$'";@z=split//,($r=~s/^_//)?$t:$d;foreach $u(split(//,"$'")){$nn = (ord($u)-97)%20;$s.=$z[$nn];}}sub t {$s.=$x[0];}sub u {t(b(to));}sub b {($c++==2)?(&qJsL):(_TtH())}for (split//,"skip"){ShAVkKvnH(avOxQR());&u;}$a=$s;$s="";&V;_oJ();$a=~s/L/\n/g;$_=$a;s,ay ,ay $s,g;s@u\n@u!\n@g;s/(D)/my \1/;print;