#!/usr/bin/perl
use 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;
};