6 lines
80 B
Perl
6 lines
80 B
Perl
|
sub rot13 {
|
||
|
|
shift =~ tr/A-Za-z/N-ZA-Mn-za-m/r;
|
||
|
|
}
|
||
|
|
|
||
|
|
print rot13($_) while (<>);
|