substr($_,$-[1],$+[1]-$-[1])=~s/--/-\xad/g while/<!--(.*?)-->/g