my $grammar = q{
    transaction:    date
    date:          /(
                        (Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)   # Month
                        \s+ \d{1,2} , \s+ \d{4}                             # Day, Year
                    )
                    \s+ (\d{1,2} : \d{1,2}) : \d{1,2} \s+ (A|P)M            # Time
                    \s+ PCKLog \s+ log
                   /x
};