my $japh="Wx.hi.fg.gh.!No.ab.bc.gh.uv.rs.ef.!Cd.rs.ef.yz.!Uv.no.pq.xy.rs.e";
$japh=~s/!/ /g;   $japh=~s/\./\b/g;    $japh=~tr/a-mn-zA-MN-Z/n-za-mN-ZA-M/;
print                              $japh,                              "\n";