in reply to Cheesy Encryption

Here's how to make it preserve case. The example is only for ROT-13, as you should be able to figure out the rest. First, remove the tr/A-Z/a-z/:
if ($type eq 'r'( { $text =~ tr/N-ZA-Mn-za-m/A-Za-z/; }

Replies are listed 'Best First'.
RE: RE: Cheesy Encryption
by ergowolf (Monk) on Apr 27, 2000 at 23:54 UTC
    Thanks for the tip. I will try it tonight.