my $code;
eval "(\$code = \$message) =~ tr/abcdefghijklmnopqrstuvwxyz/$string/";