Save normalizing script 2.pl

1 files changed, 16 insertions, 0 deletions

diff --git a/2.pl b/2.pl
new file mode 100755
index 0000000..d7cfdf3
--- /dev/null
+++ b/2.pl
@@ -0,0 +1,16 @@
+#!/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\n" and next;
+s/(.+)\'(Article \d+[a-z]?)(.*)$/$3/ and print "$1\n\n====$3====\n\n";
+/^(?!\.)(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 ";