blob: d7cfdf3d4ba6cf6e7474480c8e28bba535afc019 (
plain)
- #!/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 ";
|