in reply to Re^3: extract last 1 min log and find a string
in thread extract last 1 min log and find a string

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

[download]
poj

In Section Seekers of Perl Wisdom