my $parser = new Parse::RecDescent($grammar);

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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