my $grammar=<<'END_OF_GRAMMAR';
...
END_OF_GRAMMAR
my $parser = Parse::RecDescent->new($grammar) or die "Failed to create parser.\n";