word_list: word(s /,/) { say Dumper(\@item); } word : m{ [^,]+ }xms