fix regex for extracting bib ID from input

diff --git a/extract_loadset b/extract_loadset
index 9b116cc..d326fcd 100755 (executable)
--- a/extract_loadset
+++ b/extract_loadset
@@ -23,7 +23,7 @@ close FP;
 open MI, '<', $conf->{input} or die "Can't open input file: $!\n";
 open MO, '>', $conf->{output} or die "Can't open output file: $!\n";
 while (<MI>) {
-    m/tag="$conf->{tag}",+?<subfield code="$conf->{subfield}">(\d+)</;
+    m/tag="$conf->{tag}".+?<subfield code="$conf->{subfield}">(\d+)</;
     print MO unless $exclude{$1};
 }