$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__
[download]

First pass, I'll try again.

Note:The above code is sensitive. It must be in a file when run.

--
Casey
   I am a superhero.