# 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;
}