Select Code to Download

$text =~ s/<SCRIPT[^>]>     # the opening <SCRIPT...> tag
           .*?              # as few chars as possible until...
...

# uncommented version
$text =~ s/<SCRIPT[^>]>.*?(?:</SCRIPT>|$)//gis;

# imagine the following are two consecutive posts on a bulletin board

...
*/
</SCRIPT>
_END_