$str=~s#(.+)<index-entry id[^>]+>\s*<index-heading></index-heading>\s*</index-entry>#$1#gs;