Select Code to Download

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

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

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