use Search::Dict; look *FILEHANDLE, $key, $dict, $fold;
The flags specify dictionary order and case folding:
If $dict is true, search by dictionary order (ignore anything but word characters and whitespace).
If $fold is true, ignore case.