use strict;
use warnings;
use Parse::RecDescent;

my $grammar = 'startrule: ( "aa" | "a" ) "a"';
my $parser  = Parse::RecDescent->new($grammar);
my $text    = 'aa';

print defined($parser->startrule($text)) ? "Good!\n" : "Bad!\n";