myrule: brace_clause { print "$_\n" for @item; } brace_clause: '{' word '}' word: m{ [a-z]+ }xms