#!/usr/bin/perl
use strict;
use warnings;
my @words=qw(one);
my $text=<<END;
This is one (will match)
This is onething (won't match)
This is one-thing. (will match)
This is a thing-one (will match)
This is a -one (will match)
This is a _one (won't match)
END
foreach my $line (split(/\n/,$text)) {
   foreach my $word (@words) {
       if ($line =~ /\b$word\b/) {
          print "matched [$line]\n";
       } else {
          print "not matched [$line]\n";
       }
   }
}