#!/usr/bin/perl

# takes input text and out puts result of each possible caesar shift

$cipher = '';

while ( <STDIN> ) {
  $cipher .= $_;
}

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/;
print "a ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/bcdefghijklmnopqrstuvwxyza/;
print "b ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/cdefghijklmnopqrstuvwxyzab/;
print "c ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/defghijklmnopqrstuvwxyzabc/;
print "d ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/efghijklmnopqrstuvwxyzabcd/;
print "e ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/fghijklmnopqrstuvwxyzabcde/;
print "f ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/ghijklmnopqrstuvwxyzabcdef/;
print "g ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/hijklmnopqrstuvwxyzabcdefg/;
print "h ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/ijklmnopqrstuvwxyzabcdefgh/;
print "i ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/jklmnopqrstuvwxyzabcdefghi/;
print "j ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/klmnopqrstuvwxyzabcdefghij/;
print "k ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/lmnopqrstuvwxyzabcdefghijk/;
print "l ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/mnopqrstuvwxyzabcdefghijkl/;
print "m ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/nopqrstuvwxyzabcdefghijklm/;
print "n ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/opqrstuvwxyzabcdefghijklmn/;
print "o ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/pqrstuvwxyzabcdefghijklmno/;
print "p ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/qrstuvwxyzabcdefghijklmnop/;
print "q ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/rstuvwxyzabcdefghijklmnopq/;
print "r ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/stuvwxyzabcdefghijklmnopqr/;
print "s ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/tuvwxyzabcdefghijklmnopqrs/;
print "t ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/uvwxyzabcdefghijklmnopqrst/;
print "u ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/vwxyzabcdefghijklmnopqrstu/;
print "v ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/wxyzabcdefghijklmnopqrstuv/;
print "w ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/xyzabcdefghijklmnopqrstuvw/;
print "x ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/yzabcdefghijklmnopqrstuvwx/;
print "y ----\n$tmp\n";

$tmp = $cipher;
$tmp =~ tr/ABCDEFGHIJKLMNOPQRSTUVWXYZ/zabcdefghijklmnopqrstuvwxy/;
print "z ----\n$tmp\n";