http://www.perlmonks.org?node_id=175497


in reply to If statements with . and .. filehandles.

Or use the mighty regexp solution.
print "$file\n" if $file !~ /^\.{1,2}$/;

--
tune