my $count;
while (<$fh>)
{
  $count++ while /what you want to look for/g;
  if ($count >= 6)
  {
    last;
  }
}
$fh->close();
if ($count >= 6)
{
  print "found 'what you want to look for' at least 6 times in the file.\n";
}