$line =~ s/\t\t/\t/g while $line =~ /\t\t/;
	(
		...
	) = split /\t/,$line;