my $string = "foo	bar	etc";
my @parts = split(/\t/,$string);
print join("\n",@parts);