my first JAPH

[acid06]

Well... this is it, my first JAPH:

use AutoLoader;;;;sub AUTOLOAD{return q;}
$another = $hacker = $_;;;;s/$==$=/$\;;;;
if(\\)}\}\}\//;;;;{live}};;;;@_=japh();;;
$_=sprintf"%s",@_;s;[^\w ]|[_]+;;g;;h;@j=
split;$a=sub{ord$_;};;undef$_;for(10..12)
{$b.=chr(($a->('_')+$a->('$'))-($a->(' ')
)/2+$_)};$b.=chr(10**2+sqrt($a->('$'))+6)
;;;push@j,reverse(substr(lc($b),-2,2))  .
substr(lc($b),0,2);for(1..100){(100/$_)eq
int(10**2/$_)?push@a,$_:jnk()};;;$c.=chr(
$a[4]+$a[5]+$a[7]);$c.=chr((($a[0]+$a[1])
**$a[1])+($a[5]+$a[6])*$a[1]+$a[1]);;$c.=
chr($a[4]+$a[5]+$a[7]+$a[1]);gty;$c.=chr(
unpack('h*','g'));push@j,lc($c);;japh06;;
$,=' ';print @j[2,0,3,1];