RosettaCodeData/Task/Rot-13/Perl/rot-13-1.pl

sub rot13 {
  shift =~ tr/A-Za-z/N-ZA-Mn-za-m/r;
}

print rot13($_) while (<>);