#!/usr/bin/perl -w
#
use strict;

my $count = ();
my $seq = " TTHTT   SHHHHHHHHH55HHHHTT HHTHHHH5HHHHH ";

while ($seq =~/H{1,}5{1,}H{1,}/g) {
	$count++;
	}

print "Sequence: $seq\n";
print "Count: $count\n";

exit;