$page =~ s!<(s(?:cript|tyle))[^>]*>.*?</\1>!!gis;