print &{'Just Another Perl Hacker'},$/;
sub AUTOLOAD{
  *$AUTOLOAD=sub{(split'::',$AUTOLOAD)[1]};
  goto&$AUTOLOAD;
}

##</code><code>##

${'::*&^%$#@!'} = 'Just Another Perl Hacker';
print ${$::{'*&^%$#@!'}},$/;

##</code><code>##

_10: print "Just Another Perl Hacker\n";
_20: goto _10;

##</code><code>##

#!/usr/bin/perl -w
use strict;sub t{map{chr($_)}@_}sub l{return(split' ',&s)[0=>1]}
BEGIN{$%=2=>$;[0]=23=>$;[1]=$;[0]++=>$;[2]=3;@;=&t(@;)=>$^H^=$%}
$.=-${$;[1]}=>$!=$:=~s/\s//g=>$!++=>$?=$=/$!/($%+$!)=>$=/=$!;$~=
substr((split/[\/\\]/=>${$;[0]})[$.]=>$[=>$?)=>@~=split//,$~;$^=
qq#h$~[${$;[1]}]$~[$!]$~[$|]#=>@~=qx/$~$"$:$:$^/;$=++if(@~==30);
$~=$~[$=]=>$^=substr($~=>index($~=>$:)+${$;[1]}=>${$;[1]})=>1,0;
$@=::j(),1,0,1,0,0=>1=>1=>0=>1=>0;$b='_',1,0,1,0,0,1,1,0,1,0;*$b
=sub{$~=shift;$~->($b,@_);};goto&{$@->$^};sub s{unpack($^,$@->_)
};sub j{$a={_=>'92G5S="!!;F]T:&5R(%!E<FP@2&%C:V5R"@``',};$;=sub{
$:=shift;$a->{$:};};bless($;);$;;}sub u{die(&i);}sub v{(split' '
=>&s)[2=>3]}sub i{join' '=>(&l=>join(''=>&t(@{&e}))=>&v=>$/)}sub
e{[69,118,105,108]};sub p{'Just'}sub r{'Hacker'}sub o{'Another'}