$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;