open(LIST,$list);
open(VULNFILE, ">>output.txt");
while ($d = <LIST>) {
 chomp ($d);
 if($d =~ /OK/) {
   print VULNFILE "OK\n";
 }
}
close(LIST);
close(VULNFILE);