Save normalizing script 1.pl

1 files changed, 14 insertions, 0 deletions

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 ";