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