use strict;
use warnings;

my $rot = 6;

my $src = join '', 'a'..'z';
my $dst = substr($src, $rot) . substr($src, 0, $rot);

chomp(my $message = lc(<>));
eval "\$message =~ tr/$src/$dst/;";
print("$message\n");