Select Code to Download

my @terms = qw( foo bar baz fool foolish );
my $re = join '|', map{quotemeta} sort {length($b)<=>length($a)}@terms
+;
...
skips the sort by length
Without this foo you look foolish
and may match short elements!

my %terms = ( foo => 'FOO', bar => 'BAR' );
my $re = join '|', map{quotemeta} sort {length($b)<=>length($a)}keys %
+terms;
...
__DATA__
foo is a word
Bar ba blacksheep