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