while ($string=~m{(W)}g){
				
$count=$count+($tbsz*0.7844);
			
}