Searching and Sorting

• Pattern in matches 2 to 11 inclusive

• Matches 2 to 7 inclusive come out as:

     for my $n ( map { qr/^$_$/, qr/\b$_\b/, $_ } map { $_, qr/$_/i } qr/\Q$name/ )
     {
         push @i, $ordered->($n, @ind);
         return $i[0] if !$all && @i;
     }

• Matches 8 to 11 inclusive are similar

• munge, grep, unmunge