$rec->{'000'} = [ ++$self->{size} ];
my $col = 'A';
- $rec->{ $col++ } = Encode::decode_utf8( $_ ) foreach split(/\t/,$line);
+ foreach my $v ( split(/\t/,$line) ) {
+ next if $v eq '\N';
+ $rec->{ $col++ } = Encode::decode_utf8( $v );
+ }
push @{ $self->{_rec} }, $rec;