Perl code for HRC3 motifs