2.pl



#!/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 ";