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.