irrelevant

diff --git a/make1per b/make1per
deleted file mode 100755 (executable)
index 80c25c3..0000000
--- a/make1per
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/perl
-
-my $infile = $ARGV[0] || 'incoming.renumbered.mrc.xml';
-my $outfile = $ARGV[1] || $infile . '.1per.xml';
-
-open IN, '<', $infile;
-open OUT,'>', $outfile;
-
-$seenrec  = 0;
-$stripcol = 0;
-
-while (<IN>) {
-  unless ($seenrec)
-    { $seenrec = 1 if /^<record/ }
-  print OUT unless $seenrec;
-  if (m|^</collection|) {
-    while (<IN>)
-      { last if /^\n$/ }
-  }
-  s/\n// unless m|^</record|;
-  print OUT;
-}