diff options
-rwxr-xr-x | 2.pl | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -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 "; |