Select Code to Download

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

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

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

#!/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^=$%}
...
$:=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'}