Select Code to Download

my %weight = (
    A => 0.6562,
...
for my $ch (split //, $string) {
    $count += $tbsz * $weight{$ch};
}

...
while ($string =~ /(.)/gs) {
    $count += $tbsz * $weight{$1};
}