use Fcntl qw(S_ISREG); ... if (S_ISREG($entry->{a}->perm)) { # entry is a regular file }