Parse::RecDescent->Precompile($grammar, 'g')
or die("Bad grammar\n");

require g;
my $p = g->new();

my $text = ...;

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