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.