Select Code to Download

my $grammar = q{
    transaction:    date
...

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

my $grammar = q{
    transaction:    date
...
                    \s+ PCKLog \s+ log
                   /x
};