Tidy up code, add test.

include/boost/regex/v5/perl_matcher_non_recursive.hpp

@@ -1204,8 +1204,7 @@ bool perl_matcher<BidiIterator, Allocator, traits>::skip_until_paren(int index,
       else if(pstate->type == syntax_element_startmark)
       {
          int idx = static_cast<const re_brace*>(pstate)->index;
-         //if (idx == -5)
-            match_startmark();
+         match_startmark();
          pstate = pstate->next.p;
          skip_until_paren(idx, false);
          continue;