my @parts = split /\t/, $line;