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