Select Code to Download

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