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

foreach (grep { $line =~ /$_/i } @keywords) {
    $_ = rand;
}

foreach (@keywords) { print "$_\n" }

##</code><code>##

0.623870849609375
0.16607666015625
gamma