From 0514784ebabe67fa7456d8ba17eba7297d159cea Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Thu, 25 Apr 2013 17:53:47 +0200
Subject: Save normalizing script 1.pl

---
 1.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 1.pl

diff --git a/1.pl b/1.pl
new file mode 100755
index 0000000..7b945b1
--- /dev/null
+++ b/1.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -i -n
+
+use strict;
+use warnings;
+
+chomp;
+/^SECTION / and print "\n==$_==\n\n" and next;
+/^TITLE / and print "\n===$_===\n\n" and next;
+/^ANNEX / and print "\n===$_===\n\n" and next;
+/^Article \d+[a-z]?$/ and print "\n====$_====\n\n" and next;
+/^(?!\.)(Rule \S+)\s+(\S.*)/ and print "\n====$1====\n\n$2\n\n" and next;
+/^\d+\. / and print "\n$_ " and next;
+/^\s*(.*\.)$/ and print "$1\n\n" and next;
+/\s*(\S.*)/ and print "$1 ";
-- 
cgit v1.2.3