D:\>perl
use strict;
use Parse::RecDescent;

my $grammar = q(
     START: ( number | word )+
     word: /\w+/ { print "found a word\n"; }
     number: /\d+/ { print "found a number\n"; }
);

Parse::RecDescent->new($grammar)->START("123 geo 456 bam");

__END__

       ERROR (line 2): Untranslatable item encountered: "+"
                (Hint: Set $::RD_HINT (or -RD_HINT if you're using "perl -s")
                       for hints on fixing these problems.)
Can't call method "START" on an undefined value at - line 10.

D:\>perl
$::RD_HINT=1;
use strict;
use Parse::RecDescent;

my $grammar = q(
     START: ( number | word )+
     word: /\w+/ { print "found a word\n"; }
     number: /\d+/ { print "found a number\n"; }
);

Parse::RecDescent->new($grammar)->START("123 geo 456 bam");

__END__

       ERROR (line 2): Untranslatable item encountered: "+"
                (Hint: Did you misspell "+" or forget to comment it out?)
Can't call method "START" on an undefined value at - line 11.

D:\>perl
$::RD_HINT=1;
use strict;
use Parse::RecDescent;

my $grammar = q(
     START: ( number | word )(s)
     word: /\w+/ { print "found a word\n"; }
     number: /\d+/ { print "found a number\n"; }
);

Parse::RecDescent->new($grammar)->START("123 geo 456 bam");

__END__
found a number
found a word
found a number
found a word