#! perl
use strict;
use warnings;

print "Please enter your message to be encrypted.\n";

my $message = <STDIN>;
chomp($message);

# generate randomized alphabet
my @chars = ("A".."Z", "a".."z");
my $string;
$string .= $chars[rand @chars] for 1..26;

# I want to drop the random alphabet in $string into the replace-with slot of tr//
eval "\$message =~ tr/a-z/$string/;";

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

##</code><code>##

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

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