my $field_value;
my $delimiter = $self->field_delimiter;
while ($inputstring) {
	undef $field_value;
	if ($inputstring =~ /^"/) {
		$field_value = $inputstring;
		if ($inputstring =~ /^"(([^"]|"")+)"(?:[$delimiter]|$)/p) {
			($field_value, $inputstring) = ($1, ${^POSTMATCH});
			# Unescape escaped quotes
			$field_value =~ s/""/"/g;
		} else {
			Carp::confess("Parsing error with remaining data [$inputstring]");
		}
	} else {
		$field_value = $inputstring;
		if ($inputstring =~ /^([^$delimiter"]*)(?:[$delimiter]|$)/p) {
			($field_value, $inputstring) = ($1, ${^POSTMATCH});
		}
	} ## end else [ if ($inputstring =~ /^"/)]
}