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