find ({untaint => 1, wanted => \&find_word}, $dir);