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

# There is no need to store the file data.
# Harmony is achieved.