$z=sub{for($z=0;$z<@_;$z++){$z=oct("$_[$z++]")."$_[$z++]".$_[$z];for($w=0;
$w<length($z);$w++){($n,$n)=split(m--,substr($z,$w,2));$w++;$x=int($n);
push(@v,split(m++,${n}x${x}));}}for($w=0;$w<@v/3;$w++){$_=chr(int($v[$w].
$v[$w+055].$v[$w+0x5a]));$_=~tr,a-za-z,n-za-mn-za-m,;print $_;}};$z->(10016,0x460,
4120,6046,0x1810,3110,15706,0x83e,1130,2437,0xb5e,2110,2447,0x456,1213,6050,0x456,
3411,2613,0x840,1321,1763,0x7db,1910,2151,0x584,1312,1771,0x715,1714,2130,0x77a,
2112,3256,0x4ba,1411,7032,0x5ef,1718,2142,0x6af,1812,2442,0x6b0,1417);

#!/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));