my $re = join '|', map quotemeta, sort {length $b <=> length $a || $a cmp $b } @_;