Select Code to Download

use Parse::RecDescent;
use strict;
...
my $product_list = $parser->start($text) || die "Bad Syntax";

print Dumper($product_list);

$VAR1 = [
          {
...
            'quant' => '4'
          }
        ];