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