my $g=qr{
        <nocontext:>
        <protocol>
<rule: protocol> <[MATCH=element]>+ <minimize:> 
<rule: element> ( <MATCH=map> | <MATCH=p_str> | <MATCH=p_bool> ) #<minimize:>
<rule: map> \<  ParamMap  \. <name> > \{ <[element]>* \}
<rule: p_str>  \< ParamString \. <name> > \{
         ( <[string]>* )?
\}
<rule: p_bool>  \< ParamBool \. <name> > \{ 
        #<debug: on>
         ( <[bool]>* )?
\}
<rule: string> <_qq> <[MATCH=literal]>* <_qq>
<token: literal> [.'!\w_@\+\-\(\)\(\)\#{}\\\[\]]+ 
<token: _qq> \"
<token: name>  <_qq>\w*<_qq>
<rule: bool>  <_qq><MATCH=(true|false)><_qq>    
}xms;