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