my ($var1, $var2) = split /\t/, "string with\ttabs";