#!perl -w use strict; my $japh = "whfg nabgure crey unpxre"; $japh =~ tr/a-zA-Z/n-za-mN-ZA-M/; print $japh;