$foo =~ s|<\s*script[^>]*>.*?</script>||gis;

##</code><code>##

$html =~ s/<script[^>]*>.*?<\/script>//sgi