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

defined $parser->startrule($text) 
    or die "Can't match text";