sub deregex {
    my $regex = shift;
    my ($ops, $pat) = $regex =~ /^\(\? ([msix-]+) : (.*) \)$/x
        or die "Unknown qr// format";

    $pat =~ s!/!\\/!g;
    $ops =~ s/-.*//;
    return "/$pat/$ops";
}