#!/usr/bin/perl -w

use strict;
while(<>)
{
   chomp;
   print $_ ^ (chr(5) x length($_));
   print "\n";
}