Select Code to Download

use Parse::RecDescent;

...

my $parser = new Parse::RecDescent ($grammar);
$parser->Extend("color: '" . join(q['|'],@colors) . "'" );

my $grammar = q[
    order: quantity color item
...
    item: 'pen' | 'pencil'
];