in reply to If statements with . and .. filehandles.
print "$file\n" if $file !~ /^\.{1,2}$/; [download]
-- tune
print "$file\n" if $file !~ /\A\.{1,2}\Z/; [download]