This is the fixed version of the Math JAPH I posted before,
the problem was that sin() was giving me a different output
on each OS.

Here Im using Log() to get the job done.

#!/usr/bin/perl -l

*{'\''}=sub{$_=q!_$,'3'tilps+esrever}rhc{pam+tnirp;
~76362523062~q=+_$;,2$,$)}1{d\()*.().\}2{d\(^,s;))
#1001609521224866653113531199#qq gol(lave(sba=_$!;
eval reverse+split//;};&{'\''}
[download]

Sorry for my poor english.