Select Code to Download

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

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

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