return if -d or /^[.]/;
return if /[.]([^.]+)$/ and exists $skip_for{$1};