my @stopwords= qw/ car pet carpet /;
my $stopmatch= join '|' => 
  map { '\b' . $_[1] . '\b' } ## match full words
  reverse sort { $a->[0] <=> $b->[0] } ## longest first
  map { [length $_, $_] } @stopwords;