Select Code to Download

#! perl
use strict;
...
eval "\$message =~ tr/a-z/$string/;";

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

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

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