#!/usr/bin/perl
$r=(shift)+7;$w{$_}=(($r+ord lc)%26)+1for(a..z,A..Z);
print map(($w{$_}?chr((ord()&224)|$w{$_}):$_),split//)while(<>);
