have you programed in anything else yet? do you understand loops? do you know of regular expressions? would you understand substr?

probably the best way to start would be

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