fix field splitting way.

Return values of `split("\t", $line)` are not always 4 values.

    my $fields = "hoge\tfuga\t\t";
    my @fields = split "\t", $fields;
    print scalar(@fields); # 2 !!!