Select Code to Download

my $parser = Parse::RecDescent->new($grammar) 
    or die "Bad grammar!\n";

defined $parser->startrule($text) 
    or die "Can't match text";

    startrule:  brace_block(s)    #adjustment

...

    lbrace:  / [{] /xms
    rbrace: / [}] /xms

    startrule: <rulevar: $rbraces>

...
               

    lbrace: / [{] /xms

Can't use string ("{{") as an ARRAY ref while "strict refs" in use at 
+(eval 14) line 377