open(IN, $ARGV[0]);
  @foo = grep { m/$ARGV[1]/ } <IN>;
  print @foo;