3 open MARC, '<', 'incoming.marc.xml';
4 open NUMARC, '>', 'incoming.clean.marc.xml';
8 while ($line2 = <MARC>) {
9 if ($line1 =~ m/<datafield tag="..." ind1=" " ind2=" ">/) {
10 if ($line2 =~ m|</datafield>|) {
15 $line1 =~ s/tag=" /tag="00/g;
16 $line1 =~ s/tag=" /tag="0/g;
17 $line1 =~ s/tag="-/tag="0/g;
18 $line1 =~ s/tag="(\d\d) /tag="0$1/g;