$s = qq(<script>chunk1</script> stuff <Script>chunk2</Script>);
while ( $s =~ m|<script>([^<]+)<\/script>|gi ) {
   print "match: $1\n";
}