$data =~ s!<script(.+?)>(.+?)</script>!!gism;