perl 如何查找指定目录下的隐藏文件？

有这样一个目录，文件如下：

[sysadmin@mail chen]$ ls -al
total 24
drwxrwxr-x   3 sysadmin sysadmin 4096 Sep  9 11:40 .
drwxr-xr-x  12 sysadmin sysadmin 4096 Sep  9 11:36 ..
drwxrwxr-x   2 sysadmin sysadmin 4096 Sep  9 10:38 aa
-rwxr-xr-x   1 sysadmin sysadmin  328 Sep  4 16:24 connect_db.pl
-rw-rw-r--   1 sysadmin sysadmin    0 Sep  9 10:44 core
-rw-rw-r--   1 sysadmin sysadmin   84 Sep  4 16:09 grades
-rw-rw-r--   1 sysadmin sysadmin    0 Sep  9 11:40 .group
-rwxr-xr-x   1 sysadmin sysadmin  565 Sep  9 11:36 test


现在想找出这个目录下面的目录和文件，不包括隐藏目录和隐藏文件，原始代码如下：

$dir = "/home/sysadmin/chen";
opendir(DIR,"$dir" or die "Can't open the current directory: $!\n";

@names = readdir(DIR) or die "Unable to read current dir!\n";
closedir(DIR);
foreach $name (@names) {
    next if ( $name eq "." );
    next if ( $name eq ".." );

    if ( -d $name ) {
        print "found $dir directory: $name\n";
        next;
    }

    if ( -f $name ) {
        print "found $dir file: $name\n";
    }
}

这样的话把隐藏文件也找出来了，请问如何过滤到隐藏文件，小弟刚学perl，受教了？

不要eq "."，而要 =~ /^\./

谢谢，这位兄弟，你的方法可以。