my $s = "foo";
  for (@words) {
    print if /$s/;
  }