Help for this page
$count += ($tbsz*0.7844) while $string =~ /W/g;
$count += ($tbsz*0.7844) * ( () = $string =~ /W/g );
$count += ($tbsz*0.7844) * ( $string =~ tr/W// );