@ARGV = ${$-=$.}, s<#<>q#>#q<<>>
#exegesis=>print, hacker=>unless
$/=q=echo q/Just another Perl /|
$/=!~40.46.42.41#apocalypse=>die

##</code><code>##

Exegesis print hacker unless echo /Just another Perl/ | 
apocalypse => die
##</code><code>##

do{
    @ARGV = ${$-=$.};
    s<#<>q#>#q<<>>#exegesis;
    print;
    hacker;
} unless
( $/ = (q=echo q/Just another Perl /|
$/=) !~ 40.46.42.41 ); #apocalypse=>die

##</code><code>##

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

##</code><code>##

$/=
('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';
##</code><code>##

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