my $reOps = qr[@{[ join '|', sort { length $b <=> length $a } map{ quotemeta } keys %ops ]}];