sub parse_line {
    my ($line, $linenum) = @_;

    my %parsed = ( );

    foreach my $format (@line_format) {
        my ($label, $expected) = @$format;
        if ($expected eq 'COUNT') {
            # Pull the COUNT off the beginning of the line and apply it
            if ($line !~ s/\s*(\d+) //) {
                die "Error #1 parsing item '$label' (line #$linenum)\n";
            }
            my $count = $1;
            if ($line !~ s/(.{$count})//) {
                die "Error #2 parsing item '$label' (line #$linenum)\n";
            }
            $parsed{$label} = $1;
        } else {
            # Pull of the next non-space word, and test with the regex
            if ($line !~ s/^\s*(\S+)//) {
                die "Error #3 parsing item '$label' (line #$linenum)\n";
            }
            $parsed{$label} = $1;
        }
    }

    return \%parsed;    
}