blob: 7b945b195dafe430abcd36263f9ce9c03d61dc00 (
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" 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 ";
|