Select Code to Download

#!/usr/bin/perl

...
ok($p->parse('2 foo bar'));
ok(!$p->parse('1'));
ok(!$p->parse('1 foo bar'));

my $p = Parse::RecDescent->new(<<'__END_OF_GRAMMAR__');

...
ELEM      : /\S+/

__END_OF_GRAMMAR__