#!/usr/bin/perl -w

use strict;

unless( $#ARGV >= 0 )
{
   die "$0 <shift>";
}
my $shift = shift @ARGV;

while( my $line = <> )
{
   chomp $line;
   print chr($_ + $shift) foreach unpack 'C*', $line;
   print "\n";
}