in reply to All in one

Running perl 5.8.4 on Debian Linux (2.4.19), with the original version of your code I get:
?)us2 eitle)..el pt e

And with the modified version:

)?ju aen ev.hei phaeeev

So I guess something isn't quite right :)