$count += ($tbsz*0.7844) * ( $string =~ tr/W// );