Help for this page
#!/usr/bin/perl -p0777 ... s#(<img.*?\s+)id="\S+"([^>]*?>)#$1$2#sg; s#class=section#class="Section"#sg;