clueless

use utf8;use strict;use warnings;use Parse::RecDescent;use Data::Dumper;my $grammar =q{	expr: cmd	cmd: cmd_say	cmd_say: "SAY" /"(.+)"/ "TO CHAN" /"(.+)"/};my $parse = new Parse::RecDescent ($grammar);print Dumper($parse->expr("SAY \"test\" TO CHAN \"test\""));