123—4567891011121314151617181920 #!/usr/bin/perluse warnings;use strict;HideShow 12 lines of Pod=begin metadataName: rot13Description: Rotate the Latin letters by 13 positionsAuthor: Mark Rosetta (@marked on GitHub)Contributor: brian d foy, bdfoy@cpan.orgLicense: artistic2=end metadata=cutwhile ( <> ) { tr/A-Za-z/N-ZA-Mn-za-m/; print;};
#!/usr/bin/perl
use
warnings;
strict;
=begin metadata
Name: rot13
Description: Rotate the Latin letters by 13 positions
Author: Mark Rosetta (@marked on GitHub)
Contributor: brian d foy, bdfoy@cpan.org
License: artistic2
=end metadata
=cut
while
( <> ) {
tr
/A-Za-z/N-ZA-Mn-za-m/;
print
;
};