foreach (@all){ 
  if ($line =~ /$_/) {
    print F2 $line;
  }
}