- $(PERL) -pi.bak \
- -e 's/^1\. \@\@TITLE\@\@/ /i;' \
- -e '/^\d\.\d\.\s+/ && tr/[a-z]/[A-Z]/;' \
- -e 'my $$hit_header;' \
- -e '$$header_len=0 unless $$hit_header;' \
- -e 'if ($$hit_header) {' \
- -e ' print "# ";' \
- -e ' for ($$i=1; $$i < $$header_len; $$i++)' \
- -e ' {print "=";}' \
- -e ' print "\n";' \
- -e '};' \
- -e '$$hit_header=0;' \
- -e '$$hit_header=1 if m/^(\d\.)(\d\.)(\d\.)?\s/ && s/^(\d\.)//;'\
- -e '$$header_len = length($$_);' \
- -e 's/^/# /; /^# #{12,}/ && s/^# #/####/;' \
- -e 's/^.*$$// if $$hit_option;' \
- -e '$$hit_option=0;' \
- -e 's/^\n//;' \
- -e 's/^#\s*-{20,}//;' \
- -e 's/ *$$//;' \
- -e '$$hit_option=1 if s/^#\s+@@//;' config.new