my @script=();
open FILE, "content" or die "Couldn't open file: $!";
while (<FILE>){
 $line .= $_;
}
close FILE;
my $left = quotemeta '<script>';
my $right = quotemeta '</script>';
while( $line =~ /$left(.*?)$right/gsmi ){
    push (@script, $1);
}