in reply to Extract data between script tags

If script extraction is the only thing you need to do, this regex should do the job: 
my @Extracted_scripts =  $HTML_string =~/<script>(.+?)<\/script>/sig;

[download]
For anything more complex, use HTML::TreeBuilder or derivatives , or HTML::SimpleParse.

        What is the sound of Perl? Is it not the sound of a wall that people have stopped banging their heads against?
              -Larry Wall, 1992

In Section Seekers of Perl Wisdom