in reply to Problem using transliteration to modify a variable...
while (my $line = <DATA>) { chomp $line; (my $nuline = $line) =~ tr/a-zA-Z/n-za-mN-ZA-M/; print "$nuline\n"; } __DATA__ me you someone else
Output:
zr lbh fbzrbar ryfr
update:: output added
|
|---|