my @files = File::Find::Rule
    ->file()
    ->grep(qr/\Q$word\E/)
    ->in(@directory);