#!/usr/bin/perl -w
use strict;

chomp(my $cypher = <STDIN>);
$cypher = lc($cypher);

$cypher =~ tr/a-z/n-za-m/;

print "ROT: $cypher\n";