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

# $line only contains the last line of the file!
# Officiate makes bad decision based on wrong output.
# Monk goes hungry.