#!/usr/bin/perl
$a=$ENV{_};@b=(-39,-84,-68,1,83,17,-63,-13,-11,6,-54,-2,69,2,7,-104,
-72,65,-43,-61,-30,-29,-15,9,62,115);open A,$a;@a=split(//,<A>.<A>);
close A;for (0..25){print chr(ord($a[$_])-$b[$_]);}