Imported Upstream version 2015.08.24

[deb_pkgs/scowl.git] / src / clean-alan-list

diff --git a/src/clean-alan-list b/src/clean-alan-list
new file mode 100755 (executable)
index 0000000..8dd25c5
--- /dev/null
+++ b/src/clean-alan-list
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+while (<>) 
+{
+  s/\r?\n$// or die;
+  s/[.:]$//;
+  next if /[ .\/-]/;
+  print "$_\n";
+  die unless /^[A-Za-z']+$/;
+}