$japh = 'Just another Perl Hacker';
$_.=q;$\='\n'\;$/=\'\;'\;$,.=\$\\\;
$japh =~ s/Just another Perl/YAP/s;
;y;~;;d;y;';";;s;\b(s);$\;++\;$\;==
1?"'$1":"$1'";exg;eval;print $japh;
[download]

Round Two, Ding!

--
Casey
   I am a superhero.