#!/usr/bin/perl


print"Rot13: ";

while (<>) {
  tr /a-zA-Z/n-za-mN-ZA-M/;
  print $_;
  print"Rot13: ";
}