Ewps. Typo on my part. I meant

        -d $_ and ! /^\.\.?$/
                           ^
[download]

-d $_ and ! /^\.\.?$/

No, you meant \z instead of $. $ matches _before_ \n (if there is any). Newline is a valid character in filenames with many filesystems.

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

Sometimes a regex is overkill.

!/^\.\.?\z/.

Less readable, but faster and shorter.

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

Are you sure it's faster? My gut says it's slower. As well as being more obscure. {grin}

-- Randal L. Schwartz, Perl hacker

Are you sure it's faster?

I have benchmarked this before. It is faster. With short matches, regexes are often faster. /^#/ is faster than substr($_, 0, 1) eq '#'. (all assuming you'll have more non-matches than matches, which is true when checking when checking for . and ..)

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.