use utf8;
use strict;
use warnings;

use Parse::RecDescent;
use Data::Dumper;

my $grammar =
q{
	expr: /[a-zA-Z]+/ /[0-9]+/
};

my $parse = new Parse::RecDescent ($grammar);

print Dumper($parse->expr("a 41"));