diff options
Diffstat (limited to '1.pl')
-rwxr-xr-x | 1.pl | 14 |
1 files changed, 14 insertions, 0 deletions
@@ -0,0 +1,14 @@ +#!/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 "; |