use strict; 
use warnings; 
use 5.012;

use Parse::RecDescent;

$::RD_ERRORS = 1; #Parser dies when it encounters an error
$::RD_WARN   = 1; #Enable warnings - warn on unused rules &c.
$::RD_HINT   = 1; #Give out hints to help fix problems.
#$::RD_TRACE = 1; #Trace parsers' behaviour

my $grammar = <<'END_OF_GRAMMAR';

    employee_info:  'employee' name id
                    { print "$_\n" for @item; }  #Action
                    
    name: m{ \S+ }xms
    id: m{ \d+ }xms

END_OF_GRAMMAR

my $text = "employee Joe 10";

my $parser = Parse::RecDescent->new($grammar) 
    or die "Bad grammar!\n";

defined $parser->employee_info($text) 
    or die "Text doesn't match";


--output:--
employee_info
employee
Joe
10