Help for this page
my $code; eval "(\$code = \$message) =~ tr/abcdefghijklmnopqrstuvwxyz/$string/";
# in steve #out fnbrb