After my JAPH - My first try, I now did something more complicated...

print&{sub{for(106,33,25,102,107,192,137,46,18,63,155,
213,85,70,2,49,136,128,179,83,8,24,101,198){my($num,$s
,$o)=($_,$::,$i++);$::=sub{$::=chr($num+int(sin($o)*100
)).$_[0];$::=$s->($::)if$s;$::}}$::}}()->().$/;
[download]

The name of this JAPH would be , but this reveals the way it works...