http://qs321.pair.com?node_id=359031

Public Scratchpad

Download, Select Code To D/L

---

Grabbed from jynx's scratchpad:

$,=$/,print join('.',map chr(ord(substr$^X,$_,1)-
$_[$_]),0..$#_).q,.,,''if'one4k4'+split//,q,6424,
[download]

Very cool indeed.