gistfile1.txt

grammar foo {
    token TOP {
        <tok> ** ','
    }

    token tok {
        \d+
    }
}

class foo::actions {
    method TOP($/) {
        say $/.keys.perl;
    }
}

my $a = "1,2,33,4";
my $b = foo.parse($a, :actions(foo::actions.new));
# outputs: ().list