I'm hoping this shows up correctly Tell me if anyone has trouble getting it to work, or if you figure it out...

use Math::BigInt;$;=Math::BigInt->new(qq) + 4587711468$ - 1339511674$
% 499793$ - 1$ - 01861409891331$ = 8838$=));@@=split q,,,join q,,,map
{eval;$@}(q,sub q{print$@[$;%@@];$;/=@@;sub{$;?&q:exit}},,J.q.
..J,q.*;=\&q;.,q.@@%%%.);while(){*;=&;}
[download]