Select Code to Download

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