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