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

##</code><code>##

# in
steve

#out
fnbrb