Select Code to Download

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

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