How about this: #!/usr/bin/perl y/A-Ma-mN-Zn-z/N-Zn-zA-Ma-m/, print while (<DATA>); __END__ Uryyb jbeyq Also doubles as a handy ROT13 script for decoding naughty words like this: Qvtvgny Zvyyraavhz Pbclevtug Npg --kevin -- The secretaries don't understand me. --Rob Pike