# suppose you have:
$line = qw(advanture door tree);
# and $word is:
$word = 'ad';
...

if ($line =~ /\b$word\b/) {
  next;
} else {
  # add $word to the list
}
# only if $word will be exactly 'adventure' or 'door' it will be skiped over