while ($string=~m{(B|C|P|T|Z|a|b|d|h|k|n|p|q|u|v|x)}g){
        $count=$count+($tbsz*0.5625);
    }