my ($part_of_line) = ($line=~/^((?:\S+\t){3})/);