while (defined($line = $bw->readline)) {
  chomp $line;
  if ($line =~ /$target/) {  # why target ?
    print "found\n";
    $count = 4;
    last; #  <-- add
  }
}