$_='Just';
$_='"...erxpnU;yerC;erugban;gfhW"gavec';

##</code><code>##

$-='another Perl';

##</code><code>##

y/\\abcdefghijklmnopqrstuvwxyz ;
/'nopqrstuvwxyzabcdefghijklm                    /;

##</code><code>##

$-='Hacker'; #again, this is just filler
y/!!ABCDEFGHIJKLMNOPQRSTUVWXYZ       ;
/''NOPQRSTUVWXYZABCDEFGHIJKLM /;  #here's that translation I spoke of

##</code><code>##

eval reverse  $_;

##</code><code>##

''.''.''.''.''.'print "Just another Perl Hacker"';