and a byte more compact: #!/usr/bin/perl -w use strict; $_ = "Ohg vg'f ernyyl n irel fvzcyr gnfx..."; y/A-Za-z/N-ZA-Mn-za-m/; print;