use Data::Dumper;
use Parse::RecDescent ();

my $parser = Parse::RecDescent->new($grammar)
   or die("Bad grammar\n");

my $parse_tree = $parser->parse($text)
   or die("Bad text\n");

print Dumper $parse_tree;