$" =' ^d 1b A4 a4 e) 0a 50 4) e2 j) cd 0@
bd Te cY ce 4a e0 -c df d2 dd +0 9c T9 d5
d7 c6 bf 1a 0d ce 5b 21 be 2b !f R6 fa a3
2a Ce 5a cf 1c b4 f0 bd 54 9Q 8d 8d bJ d;
]5 >5 ee N3 5e \6 fc fb 31 3a b5 ac 7d $b
R9 Ic 16 af aa 17 f3 0b 9f 0e d0 0a fe 04
\_ N4 *0 8f 0= 4e ca ee ;0 18 c1 6c 29 e8
db "< bd e; 28 b5 2% 2b 8A ed f3 15 21 ba
fb 2f 7c e^ f2 eb 16 da 6f G@ fc 0b 4c f:
ec e% 16 e/ 8e 1e 0e fR 10 P% 1a 32 /7 b`
ce 0f $d Jf da 3a d5 eb 3e 04 a$ 1c Z0 "9
e] f4 d9 =1 ba fc 5H "b 9c 4( 0d Hd /f b6
d5 16 b7 a` e= 5: 7e e& f5 cd Hc 2H .+ 2>
$6 !2 !" 30 %3 53 2= 35 =3 1< 31 31 &3 13
03 53 13 1$ 3] 0$ 30 !> 35 "" >= 35 $3 9"
=" E3 5" 6. S5 =3 9% 2\ b3 '; $k =sub{ #x

crypt(pop,(caller(1))[3])};$i=sub{$r=&$k(
pop);for (0..3){$m=unpack('b*',$r); $m=~s
/^(.)(.*)/$2$1/x;;$r.=pack('b*',$m);};$n=
length(pop);sub die{&$z($");$t=&$e($l,&$i
($l,'UnderMine'));&$x($t);};$r=~s/^(.{$n}
  ).*/$1/x;$r;};$e=sub{pop^pop};$z=sub{
    eval(pop);};$"=~y/ \n//d;$"=~s/(
      [^\da-f'\#])/ord($1)/gex;$"
        =pack('h*',$");$"=&$e($"
          ,&$i($",'JAPH'));&die