use strict;
use warnings;

my $rot = 6;

chomp(my $message = lc(<>));
$message =~ s/([a-z])/
   chr( ( ord($1) - ord('a') + $rot + 26 ) % 26 + ord('a') )
/ge;
print("$message\n");