while (defined($file = readdir(PARSEDIR))) {
    next if ($file eq "." || $file eq ".." || !-r $dir);
    ### [*snip*]
}