http://www.perlmonks.org?node_id=136740 

$|=$_='1g2i1u1l2i4e2n0k',map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g

[download]
Update: today i tried this on Win2K: it really sounds more musical under Linux. Somebody can argue why?

Back to Obfuscated Code