"...it seems to be the easiest way..."

Who knows. Consider File::Find::Rule:

# untested
use File::Find::Rule;
my @files = File::Find::Rule->file()
                            ->name('*.html')
                            ->grep($pattern)
                            ->in($dir);
[download]

Regards, Karl