$a='Math::BigInt';eval"use $a";$c=new$a('26');$n=new$a '
0x4e83c7dcd1a0793e8e1952169629c92ae4ed23bf28b4e';do{$b='
0x76'**--$c;$n-=$m=$n%$b;$n/=$b;print chr$n}while($n=$m)
[download]