#!/usr/bin/perl -p0777

s#<!--.*?-->##sg;

s#<!\[if .*?\]>(.*?(?!<!).*?)<!\[endif\](--)?>##sg;

s#<o:p></o:p>##sg;
s#<span\s+style='(?:(?:mso-bidi-)?font-size:\d+\.\d+pt;\s*)?font-family:Arial'>([^<]*)</span>#$1#sg;
s#<ol start=1 type=1>#<ol>#sg;
s#<li[^>]+>#<li>#sg;

s#<span\s+style='(?:(?:mso-bidi-)?font-size:\d+\.\d+pt;\s*)?font-family:Arial'>#<span>#sg;
s#<span\s+style="mso-spacerun:\s*yes">#<span>#sg;

s#<b style='mso-bidi-font-weight:\s*normal'>#<b>#sg;
s#<p[^>]*?>#<p>#sg;
s#<span[^>]*?>(.*?(?!span).*?)</span>#$1#sg;

s#<span>(.*?(?!span).*?)</span>#$1#sg;

# s#(<img.*?src=")[^>]+/[^>]+\.([^\.>]+?)(">)#sprintf("%simage%04d.%s%s",$1,++$N,$2,$3)#sge;

s#(<img.*?\s+)id="\S+"([^>]*?>)#$1$2#sg;

s#class=section#class="Section"#sg;