--- a
+++ b/split.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/perl -w
+use strict;
+use diagnostics;
+
+# requires pdftk to be installed, and something UNIX-like in
+# general.
+#
+# LGPL license, 2005 Copyright Egon Willighagen
+
+my @articles = `find . -name "split.config"`;
+
+foreach my $article (@articles) {
+  $article =~ s/\n//g;
+  print "Reading file $article...\n";
+  open (CONFIG, "<$article");
+  my $issue = "";
+  my $pages = "";
+  while (<CONFIG>) {
+    my $line = $_;
+    if ($line =~ m/issue=(.*)/) {
+      $issue = $1;
+    } elsif ($line =~ m/pages=(.*)/) {
+      $pages = $1;
+    }
+  }
+  if (length($pages) > 0 && length($issue) > 0) {
+    print "  ... config OK\n";
+    $article =~ m#$issue/(.*)/split.config#;
+    my $artID = $1;
+    if (length($artID)) {
+      print "  .. article ID: $artID\n";
+      if (-e "cdknews$issue.$artID.pdf") {
+        print "  ... already extracted\n";
+      } else {
+        `pdftk A=archive/cdknews$issue.pdf cat A$pages output cdknews$issue.$artID.pdf`;
+        print "  ... extracted PDF\n";
+      }
+    }
+  }
+}