3 my $infile = $ARGV[0] || 'incoming.renumbered.mrc.xml';
4 my $outfile = $ARGV[1] || $infile . '.1per.xml';
7 open OUT,'>', $outfile;
14 { $seenrec = 1 if /^<record/ }
15 print OUT unless $seenrec;
16 if (m|^</collection|) {
20 s/\n// unless m|^</record|;