I'm glad you were able to get further with your problem.  Always consider printing out intermediate results, so you know what your data looks like at each step of the way.

The line at the end of my post:

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

is just my "signature".  If you run it as a separate Perl script, it prints liverpole.  You can create your own signature by editing your Signature Settings page.