or download this
my $protein = 'NOV';
my @keywords = (qw(novice niveau november paramonov nov supernova), "h
+e said 'nov'");
...
print "Right-matches /$protein/: $_\n" for grep { $_ =~ /$protein\b/i
+} @keywords;
print "Contains /$protein/: $_\n" for grep { $_ =~ /$protein/i }
+@keywords;
print "Contains /$protein/ as word: $_\n" for grep { $_ =~ /\b$pr
+otein\b/i } @keywords;