my $line = "Alpha and some beta junk here";
my @keywords = qw(alpha beta gamma);

my @found = grep { $line =~ /$_/i } @keywords;

foreach (@found) {
    $_ = rand;
}

print "@keywords\n";

__OUTPUT__
alpha beta gamma