use strict;$_=' RZzqDaL ^IYt}WigMQo r|FD}Ms `UVwIIj';my @w=my $z=length()>>1;
$_=join'',map { (/\s/)?' ':chr(ord($_)^++$z) } split //; while (/[xX]/) {push
@w, scalar(join '', map {$z=1;join '', grep {$z&&((/[A-Z]/&&(($_.='x')||1))||
($z=0))}split//}split/\s/);s/\s[A-Z]+/ /g;tr/[A-Z][a-z]/[a-z][A-Z]/;}$_=(join
' ',@w[1..$#w]);s/[xX ]//g;$_=lc;tr/[yz]/[.@]/; print; print "\n"; #### Email