my $grammar = q{
    transaction:    date
    date:          /(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\s+\d{1,2},/
};

# My output...
# $VAR1 = 'Oct 31,';