$_ = '1 the cat sat on the mat.'; tr/abcdefghijklmnopqrstuvwxyz0-9/aBCDEFGHIJKLMNOPQRSTUVWXYZ/d; print "$_\n"; $_ = '2 the cit sit on the mit.'; tr/abcdefghijklmnopqrstuvwxyz0-9/ABCDEFGHiJKLMNOPQRSTUVWXYZ/d; print "$_\n"; __END__ THE CaT SaT ON THE MaT. THE CiT SiT ON THE MiT. #### tr/searchlist0123456789 /REPLACEMENTLIST/d