while (my $line =<INPUT>) {
      if ($line =~m/^>/) {
	if ($seq) {
	  $o{$header} = "$seq";
	}
	$count++;
	print "\n\n";
	print "$line";
	$header = "$line";
	$seq=();
      } else {
	chomp $line;
	print $line;
	$seq .= "$line";
	if ($line =~/$search/gi) {
	  $hits++;
	}
      }
    }