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

Should work on most *nix systems:
perl -E'say`$^Xdoc -qj`=~m`"(.*)"`'

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