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