in reply to poll ideas quest

I post to Perlmonks anonymously ...

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/