regex prefix_circumfix_meta_operator:reduce (--> List_prefix) {
    $<s> = (
        '['
        [
        | <op=infix> ']' ['«'|<?>]
        | <op=infix_prefix_meta_operator> ']' ['«'|<?>]
        | <op=infix_circumfix_meta_operator> ']' ['«'|<?>]
        | \\<op=infix> ']' ['«'|<?>]
        | \\<op=infix_prefix_meta_operator> ']' ['«'|<?>]
        | \\<op=infix_circumfix_meta_operator> ']' ['«'|<?>]
        ]
    ) <?before \s | '(' >
...


##</code><code>##

$ cat test.t 
[\~] 1..3
$ perl5.10.0 STD5_dump_match test.t 
comp_unit:
 statementlist:
  statement:
   EXPR:
    left:
     pre:
      prefix_circumfix_meta_operator:
       [\
       op:
        ~
       ]
       
     noun:
      value:
       number:
        integer:
         1
    infix:
     ..
    right:
     noun:
      value:
       number:
        integer:
         3
     \n