my $jpred='--------HHHHHH-----HHHHHHHH------';
print ( $jpred=~ tr/H/H/ );

Output:
14