I'm not suggesting reinventing File::Glob. I'm suggesting that you only want to edit each file once. That's not what your code does.

For every file or directory your code finds, it processes every .shtml file in the current directory.

There are two ways to fix it. One, don't use File::Glob. Two, only use File::Glob if the current file from File::Find is a directory.

Nope. File::Find doesnt have any filtering mechansim explicitly built into it for a very good reason that has nothing to do with File::glob. Basically the callback mechanism used by File::Find is about a million times more powerful than any filtering technique they could have provided. If you want to do pattern matching on the names then just do it in the wanted function:

#perl -l
use File::Find;
find sub{print $_ if -f and /\.txt$/i},@INC;
[download]

And if this really is not sufficient (id be suprised) then take a look at File::Find::Rules

HTH

--- demerphq
my friends call me, usually because I'm late....