while (<INFILE>) {
  $word = <STDIN>;
  print if /$word/;
}

# Officiate is asked for input on every line of the file.
# Officiate throttles monk; blacking out, you meditate on your error.