===================================================================
RCS file: /cvs/pta/pta_import.pl,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -p -r1.31 -r1.32
--- pta/pta_import.pl	2021/05/19 21:52:11	1.31
+++ pta/pta_import.pl	2021/06/04 13:50:06	1.32
@@ -153,10 +153,10 @@ LINE: while (<STDIN>) {
 	}
 	my $copy_line = $line;
 	my @fields;
-	if ($quote) {
-		push @fields, $1 while $copy_line =~ s/$quote([^$quote]*)$quote$delim?//;
-	} else {
-		@fields = split /$delim/, $line;
+	while ($copy_line =~ /./) {
+		$quote && $copy_line =~ s/^$quote(.*?)$quote(?:$delim|$)//
+		    or $copy_line =~ s/^(.*?)(?:$delim|$)//;
+		push @fields, $1;
 	}
 	my $matches = 0;
 	my ($account, $booking);