#!perl -w
@res='index.cgi';
@ext=qw(css tmp class edf);
@regex='';
foreach(@ext){
	$reg=$reg."|^.*\\.$_\$";	
}
foreach(@res){
	$reg=$reg."|^\Q$_\E\$";
}
if($regex){
$reg="|$regex$reg";
}
$thing=~/^\.+$$reg/i;