#!/usr/bin/perl --

use strict;
use warnings;

use 5.014;

use Data::Dumper;

my $rules = join("\n",
    map { "<token: $_>\n  $_\n" } "A" .. "Z"
);

my $grammar = do {
    use re 'eval';
    use Regexp::Grammars;
    my $regexps = {};
    foreach my $rule ( "A" .. "Z" ) {
        $regexps->{$rule} = qr{
            ^ <$rule> $

            $rules
        }xims;
    }
    $regexps;
};

foreach ( "A".."Z" ) {
    say $_, $_ =~ $grammar->{$_} ? " win" : " fail";
}
#warn Dumper( $grammar->{W} );