Select Code to Download

# make_parser.pl

...

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

# test.pl

...
my $parser = Parser->new();

print(Dumper($parser->parse($text)));

>perl make_parser.pl

...
            'squid'
          ]
        ];