#!/usr/bin/perl -p0777 s###sg; s#(.*?(?!##sg; s###sg; s#([^<]*)#$1#sg; s#
]*?>#
#sg; s#]*?>(.*?(?!span).*?)#$1#sg; s#(.*?(?!span).*?)#$1#sg; # s#(]+/[^>]+\.([^\.>]+?)(">)#sprintf("%simage%04d.%s%s",$1,++$N,$2,$3)#sge; s#(]*?>)#$1$2#sg; s#class=section#class="Section"#sg;