#!/usr/bin/perl use strict; use warnings; my $str = <>; chomp $str; my @array = split //, $str; for(my $i = 0; $i < length $str; $i++) { if($array[$i] eq 'a') { $array[$i] = 'c'; } elsif($array[$i] eq 'b') { $array[$i] = 'q'; } elsif($array[$i] eq 'c') { $array[$i] = 'l'; } elsif($array[$i] eq 'd') { $array[$i] = 'm'; } elsif($array[$i] eq 'e') { $array[$i] = 'd'; } elsif($array[$i] eq 'f') { $array[$i] = 'r'; } elsif($array[$i] eq 'g') { $array[$i] = 's'; } elsif($array[$i] eq 'h') { $array[$i] = 't'; } elsif($array[$i] eq 'i') { $array[$i] = 'f'; } elsif($array[$i] eq 'j') { $array[$i] = 'x'; } elsif($array[$i] eq 'k') { $array[$i] = 'y'; } elsif($array[$i] eq 'l') { $array[$i] = 'z'; } elsif($array[$i] eq 'm') { $array[$i] = 'b'; } elsif($array[$i] eq 'n') { $array[$i] = 'a'; } elsif($array[$i] eq 'o') { $array[$i] = 'n'; } elsif($array[$i] eq 'p') { $array[$i] = 'o'; } elsif($array[$i] eq 'q') { $array[$i] = 'p'; } elsif($array[$i] eq 'r') { $array[$i] = 'u'; } elsif($array[$i] eq 's') { $array[$i] = 'v'; } elsif($array[$i] eq 't') { $array[$i] = 'w'; } elsif($array[$i] eq 'u') { $array[$i] = 'e'; } elsif($array[$i] eq 'v') { $array[$i] = 'g'; } elsif($array[$i] eq 'w') { $array[$i] = 'h'; } elsif($array[$i] eq 'x') { $array[$i] = 'i'; } elsif($array[$i] eq 'y') { $array[$i] = 'j'; } elsif($array[$i] eq 'z') { $array[$i] = 'k'; } } print @array; print "\n"; exit;