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.
}


##</code><code>##

# This subroutine accepts a filehandle and a line read from that filehandle as arguments given in that order, it is meant for "Text (Tab delimited)" type files.
# It strips tabs and newlines from inside individual tab delimited data fields.
# It will modify the line that was passed to it (as if passed by reference) to resolve it, and return an array of the completely resolved line split on tabs.
sub resolve_tab_delimited_file_line
{
	my $fh = $_[0];
	chomp($_[1]); # $_[1] being the read line passed in to this subroutine that is to be modified if necessary (as if passed by reference)
	my @data = split /\t/, $_[1];
	
	my $last_index = $#data;
	for (my $field_index=0; $field_index<$last_index; $field_index++)
	{
		if (($data[$field_index] =~ tr/"//) % 2 == 1)
		{
			splice @data, $field_index, 2, "$data[$field_index] $data[$field_index+1]";
			$_[1] = join "\t", @data;
			$last_index--;
			$field_index--;
		}
	}
	if (($data[$last_index] =~ tr/"//) % 2 == 1)
	{
		$_[1] .= " " . <$fh>;
		@data = &resolve_tab_delimited_file_line;
	}
	
	return @data;
}