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

foreach (@keywords) {
    $line =~ m/$_/i ? push @found, $_ : next
}

foreach (@found) { print }