Why use perl at all for that? ;)

Perl's a great language, but no point going hybrid for something like this.

find . -name \*.htm -exec chmod 644 {} \;

pstickne
Use the right tool for the job