japh

#!/usr/bin/perl
@x=(0x50,-82,0xd,-3,-12,0x5,0x1,0xd,0x41,-84,0x1,
-2,0x2b,0x4a);$Z=sub{for($z=@_;$z;$z--){unshift(
@z,chr($_[$z]+$z{z}));$z{z}+=$_[$z];}while($z=pop
(@z)){print($z);}};$z=$Z;@Z=(0xd,-6,0x8,0x2);$Z->
((0,0,0,-68,@Z,-7,0x48,-76,-6,0xd,-11,@x));