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

##</code><code>##

my $re = join '|', @all;
$re = qr/$re/;

if ($line =~ /$re/) {
  print F2 $line;
}