Consider using File::Find together with one of the HTML::Parser modules, like HTML::TokeParser. That will save you a lot of work and trouble.

After Compline,
Zaxo