$/=
('echo q/Just another Perl /|
$/' =~ m/(.*)/);
@ARGV = $b = ${$- = $.};
#$_ =~ s//<>/ee;
$a =<>;

print "\n" . "v" x 20 . " -> \$-=${-} : \$${-}=". $b 
     ."\n$a\n" 
     ."^" x 20 ."\n";

$_= eval "$a";
print "$_";
qq'hacker';