Help for this page
while( $html =~ m/\<script .*? src=\"(.+?)\Q.js"><\/script>\E/gis ... } return \@result_arr;
$html =~ m/(<link [^<]*?href=\"([^\"]+?\.css[^"]*?)\")/gis $html =~ m/(<script [^<]*?src=\"([^\"]+?\.js[^"]*?)\")/gis