my ($re) = map qr/$_/,
           join '|',
           map quotemeta,
           sort { length($b) <=> length($a) }
           @words;