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