my $p6 = Parse::RecDescent->new(q(
                                 letter : /\w/
                                 character : letter
                              
                                 Format : character(s)
));
my $x= $p6->Format('abc');
die "Invalid pattern" unless (defined $p6);
print Dumper $x;

#prints

$VAR1 = [
          'a',
          'b',
          'c'
        ];