Your correction needs a small correction:) We need to do the sort by length after the quotemetaing:

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