File::Find::find({wanted => \&wanted}, 'find', '.');

sub wanted {
    /^threads\.html\z/s;
}