#!/usr/bin/perl
#
# simple simple r0t47 script
#

sub rot47 {
  my ($str)=@_;
  $str =~ tr/!-~/P-~!-O/;
  return $str;
}

my ($string)=@ARGV;
my $outstr=rot47($string);

print "$outstr\n";

exit 0;