use strict; 
use warnings; 
my $jpred='--------HHHHHH-----HHHHHHHH------';