if($File::Find::name !~ m/\./)