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