my $text = <<'END_OF_TEXT'; {{ hello }} END_OF_TEXT my $grammar = <<'END_OF_GRAMMAR'; { use 5.012; use Data::Dumper; my $lbrace_count; #**DECLARE VARIABLE** } brace_block: lbrace(1..) { $lbrace_count = @{$item[1]}; #SET VARIABLE** } 'hello' rbraces { say "rbraces matched: $item{rbraces}"; } lbrace: / [{] /xms rbraces: / [}]{$lbrace_count} /xms #**INTERPOLATE VARIABLE** END_OF_GRAMMAR