Select Code to Download

    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);
    }

    while ($string=~m{[BCPTZabdhknpquvx]}g){
        $count+=($tbsz*0.5625);
    }

my %start_table = (
...
        }
    }