$text =~ s/<SCRIPT[^>]>     # the opening <SCRIPT...> tag
           .*?              # as few chars as possible until...
           (?:</SCRIPT>|$)  # closing script tag or the end of the text ($)
          //xgis;           # (x) comments (g)lobal, case (i)nsensitive,
                            # treat string as (s)ingle line

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

##</code><code>##

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

$first_post = <<_END_;
<SCRIPT LANGUAGE="Javascript">
document.location.href = "http://www.hamsterdance.com"
/*
_END_

$second_post = <<_END_;
*/
</SCRIPT>
_END_