while ($string =~ m/\<script .*? src=\"(.+?)\Q.js"><\/script>\E/gis) {
		print "FOO: $1.js \n";
	}	

    while ($string =~ m/\<link .*? href=\"(.+?)\.css\" \/?\>/gis) {	
		print "FOO: $1.css \n";
	}