Select Code to Download

while ($string=~m{<(ths|193)>|\.}g) {
            $count=$count+($tbsz * 0.25);
        }

my %factor;
$factor{ths} = $factor{193} = 0.25;
...
    $count += $factor{$1};
}
$count *= $tbsz;

my $charclass = join "", grep {1 == length} keys %factor;