Good use of the eval and reverse operators. And yes, sin seems to be the culprit. This fix should be cross platform:

#!/usr/bin/perl -l

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

It cuts out the sinusodal function, but it works! -inno