Select Code to Download

sub deregex {
    my $regex = shift;
    my ($ops, $pat) = $regex =~ /^\(\? ([msix-]+) : (.*) \)$/x
...
    $ops =~ s/-.*//;
    return "/$pat/$ops";
}