while (my $line = <$TD_fh>)
{
	chomp($line);
	my @data = split /\t/, $line;
	
	# This block of code strips tabs and newlines from inside individual tab delimited data fields.
	# Each individual tab or newline is replaced with a single space character.
	my $last_index = $#data;
	for (my $field_index=0; $field_index<$last_index; $field_index++)
	{
		if (($data[$field_index] =~ tr/"//) % 2 == 1)
		{
			my $new_string = "$data[$field_index] $data[$field_index+1]";
			splice @data, $field_index, 2, $new_string;
			$line = join "\t", @data;
			$last_index--;
			$field_index--;
		}
	}
	if (($data[$last_index] =~ tr/"//) % 2 == 1)
	{
		$line .= " " . <$TD_fh>;
		redo;
	}
	
	# Make use of the resolved line and/or data however you please here.
}