===================================================================
RCS file: /cvs/pta/pta.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- pta/pta.pl	2020/10/20 10:25:47	1.5
+++ pta/pta.pl	2020/11/10 19:08:06	1.6
@@ -230,7 +230,7 @@ while (<$in>) {
 
 	s/^(\d{4})(\d{2})(\d{2}) +// or die "$fn date parse error: $line";
 	my ($year, $month, $day) = ($1, $2, $3);
-	s/^([A-Z]+(?:\d+\/\d+)?) +// or die "$fn ID parse error: $line";
+	s/^(\S+) +// or die "$fn ID parse error: $line";
 	my $id = $1;
 	s/^(\d+) +// or die "$fn debit account number parse error: $line";
 	my $debit = $1;