CSVLine: QuotedText(s Comma) { do something}

##</code><code>##

my $g = q(

    Word: /^[A-Z]+$/i
    {return $item[1]}

    TermSep: '_'

    Term: Word(s TermSep) { use Data::Dumper; Dumper($item[1]) }

	Line: Term
	{$item[1]}

  );