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

##</code><code>##

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

##</code><code>##

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