my $reOps = qr[@{[ join '|', map{ quotemeta } keys %ops ]}];

##</code><code>##

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