$_='Just';$_='"...erxpnU;yerC;erugban;gfhW"gavec';
$-='another Perl';y/\\abcdefghijklmnopqrstuvwxyz ;
/'nopqrstuvwxyzabcdefghijklm                    /;
$-='Hacker';y/!!ABCDEFGHIJKLMNOPQRSTUVWXYZ       ;
/''NOPQRSTUVWXYZABCDEFGHIJKLM /; eval reverse  $_;
''.''.''.''.''.'print "Just another Perl Hacker"';