in reply to problem using File::Find and taint
You have to set the 'untaint' option:
find ({untaint => 1, wanted => \&find_word}, $dir); [download]