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");