$pattern = join '|', map quotemeta, sort { $b cmp $a } keys %map;