Thanks for the clean-up. I didn't have a good understanding of all the different things reverse can do (in particular, the

for ( reverse <> ) {
[download]

usage is new to me). Splitting and joining... oh, that was left-over from when I thought I needed to split up the string in order to reverse it (again, I just don't know what reverse does, I'd better hit perldoc) and I just spaced on getting rid of those steps.
Not sure that you mean by using tr/// twice...