my @Extracted_scripts =  $HTML_string =~/<script>(.+?)<\/script>/sig;