Code:
if ($read(file.txt,w,*word*)) { do stuff }


from lpfix