lao.pl

use 5.010;
use strict;
use warnings;

use Data::Dumper;

use Marpa::R2;

my $g = Marpa::R2::Scanless::G->new( { 
    source => \(<<'END_OF_SOURCE'),
:default ::= action => [name, value]
lexeme default = action => [name, value]

    All ::= Syllable+

    Syllable ::=
        Syllable_CVC |
        Syllable_CV  |
        Syllable_C_or_Abbrev
    
    Syllable_CVC            ~ C V C
    Syllable_CV             ~ C V
    Syllable_C_or_Abbrev    ~ C
             
    C ~ [bcdfghjklmnpqrstvwxyz]
    V ~ [aeiou]

:discard ~ whitespace
whitespace ~ [\s]+
END_OF_SOURCE
} );

my $input = <<EOI;
mat
m
EOI

my $r = Marpa::R2::Scanless::R->new( { grammar => $g } );
eval {$r->read(\$input)} || die "Parse failure, progress report is:\n" . $r->show_progress;
while (my $v = $r->value){
    say Dumper $v;
}

$VAR1 = \[
            'All',
            [
              'Syllable',
              [
                'Syllable_CVC',
                'mat'
              ]
            ],
            [
              'Syllable',
              [
                'Syllable_C_or_Abbrev',
                'm'
              ]
            ]
          ];