use strict;
use LWP::Simple;

my @page = split("\n", get('http://www.myurl.com'));
my $index = 0;
do{$index++} while $page[$index] != /script/; # increment until first script tag
while ($page[$index] != m!/script!){ #print out script lines until closing script tag
       print "$page[$index]\n";
       $index++;
       }