#!/usr/local/SOLARIS/bin/perl

@a = @b = ();
for $_ (a..z) { push @a, $_; push @b, $_; }
for $_ (@a) { $c{$_} = splice(@b, int(rand() * $#b), 1); }
for $_ (keys %c) { $c{uc($_)} = uc($c{$_}); }

while (<STDIN>) {
  foreach $c (split //, $_) {
    if (defined($c{$c})) { print $c{$c}; }
    else { print $c; }
  }
}