#!/usr/bin/perl

# By Craig Kelley -- using perl 5.8.8

use strict;
use warnings;

my @responses;
while (my $line = <STDIN>) {
   $line =~ s/\s+$//g;
   my $response = "";
   for (my $i=0; $i<length($line); $i++) {
      my $char = substr($line, $i, 1);
      if ($char eq " ") {
	 $response .= " ";
      } else {
	 $response .= chr(ord($char) + 1);
      }
   }
   push @responses, $response;
}

print join ("\n", @responses) . "\n";