my $code = eval "\$message =~ tr/a-z/$string/r;";

print "Here is your encrypted message: $code\n";