HDRCOMPNAME BIG000OLD111IDENTIFIER1020301WITH1010LOTS1010OF1010CRAP
ADD,1234567890,,COMPNAME
ADDRANGE,2468,4680,COMPNAME
DELETE,987654321,,COMPNAME
DELETERANGE,13579,13599,COMPNAME
TLR000004

##</code><code>##

my $Grammar=<<'END_GRAMMAR';

startrule   :   file

file        :   header record(s?) trailer_t
                { $return={
                           header=>$item[1],
                           records=>$item[2],
                           count=>$item[3]
                          } 
                }

header      :   header_t data_t
                { 
                 $return={
                          company=>$item[1],
                          code=>$item[2]
                         } 
                }

record      :   valid_rec | <error>

valid_rec   :   type_t ',' number_t ',' number_t(?) ',' name_t
                { $return=[
                           $item[1],
                           $item[3],
                           @{$item[5]} ? $item[5] : undef,
                           $item[7]
                          ] 
                }

header_t    :   /HDR\w+/ { $return=substr($item[1],3) }
trailer_t   :   /TLR\d+/ { $return=substr($item[1],3) }

data_t      :   /\w+/
type_t      :   /ADD(?:RANGE)?|DELETE(?:RANGE)/
number_t    :   /\d+/
name_t      :   /\w+/

END_GRAMMAR