#!/usr/bin/perl -w

print "\n";

#take a string from STDIN, ROT13 it and then print it to STDOUT
foreach $x (0..$#ARGV) {
 $i = $ARGV[$x];
 chomp $i;
 $i =~ tr/abcdefghijklmnopqrstuvwxyz/nopqrstuvwxyzabcdefghijklm/;
 $i =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/NOPQRSTUVWXYZABCDEFGHIJKLM/;
 print "$i ";
}
print "\n";
