$japh = 'Just another Perl Hacker';
*_=*DATA;seek _,print,s/Just anothe
r/Perl Hacker/x,;($/,$\)=(',',"\n")
,*_=*{join$',map{lc}map{$_=+reverse
;chop}split/\s+/=>$japh}=\(<_>)[2];
s$(\$\)$$;chomp;print$japh,__DATA__