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