next if $file =~ m#^[.]{1,2}$#;