C:\japh_debug.pl
vvvvvvvvvvvvvvvvvvvv -> $-=0 : $0=C:\japh_debug.pl
$/=
('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';

^^^^^^^^^^^^^^^^^^^^

vvvvvvvvvvvvvvvvvvvv -> $-=1 : $1=echo q/Just another Perl /|
q/Just another Perl /

^^^^^^^^^^^^^^^^^^^^
Just another Perl hacker