I know its not Perl, but this is one time I think the shell is a little cleaner.

find /usr/local/apache/htdocs/ -name '*.html'
[download]

--eric