On Mar 6,  4:04pm, Mike wrote:
> [...] I was trying to exclude
> both the ".", "..", and a directory called "approved".
[...]

>   next if ($file =~ /(^\.)(approved)/);

Try:

    next if ($file =~ /^(\.\.?|approved)$/);

(Untested.)

Kevin