use strict;
use warnings;
use Data::Dumper
use Parse::RecDescent;

use vars qw/@tokens/;
my $p6 = Parse::RecDescent->new(q(
                                 letter : /\w/
                                 character : letter
                                 {
                                   push @main::tokens, $item{letter};
                                 }
                                 Format : character Format
));
$p6->Format('abc');
die "Invalid pattern" unless (defined $p6);
print Dumper \@tokens;