my ($str1, $str2) = $line =~ /^(.*?)\t(.*)/;