next if $file =~ /^\.\.?$/;

##</code><code>##

next if $file =~ /^\.+$/; # no longer recommended. see below

##</code><code>##

next if $file =~ /^\.{1,2}$/;