while ($string=~m{<(ths|193)>|\.}g) {
			$count=$count+($tbsz * 0.25);
		}
		while ($string=~m{<(ens|194)>}g) {
			$count=$count+($tbsz * 0.5);
		}
		while ($string=~m{<(ems|195)>|\s}g) {
			$count=$count+$tbsz;
		}
		
		$string=~s/<[A-z]+>//g;
		if($ftype==1){
			while ($string=~m{(W|\s|%)}g){  ### % is added temporarily for some testing purpose
				$count=$count+($tbsz*1);
			}
			while ($string=~m{(w|\)|\()}g){
				$count=$count+($tbsz*0.84375);
			}
			while ($string=~m{(M|m)}g){
				$count=$count+($tbsz*0.8125);
			}
			while ($string=~m{(N|Q)}g){
				$count=$count+($tbsz*0.7188);
			}
			while ($string=~m{(O|Y)}g){
				$count=$count+($tbsz*0.6875);
			}
			while ($string=~m{(A|D|G|H|K|U|V|X)}g){
				$count=$count+($tbsz*0.6562);
			}
			while ($string=~m{(R)}g){
				$count=$count+($tbsz*0.625);
			}
			while ($string=~m{(B|C|P|T|Z|a|b|d|h|k|n|p|q|u|v|x)}g){
				$count=$count+($tbsz*0.5625);
			}
			while ($string=~m{(6)}g){
				$count=$count+($tbsz*0.55);
			}
			while ($string=~m{(0)}g){
				$count=$count+($tbsz*0.5375);
			}
			while ($string=~m{(g|y)}g){
				$count=$count+($tbsz*0.5313);
			}
			while ($string=~m{(4)}g){
				$count=$count+($tbsz*0.5281);
			}
			while ($string=~m{(7|8)}g){
				$count=$count+($tbsz*0.5156);
			}
			while ($string=~m{(o|2|3)}g){
				$count=$count+($tbsz*0.5);
			}
			while ($string=~m{(5)}g){
				$count=$count+($tbsz*0.4938);
			}
			while ($string=~m{(9)}g){
				$count=$count+($tbsz*0.4813);
			}
			while ($string=~m{(E|L)}g){
				$count=$count+($tbsz*0.46875);
			}
			while ($string=~m{(F|c|e|z)}g){
				$count=$count+($tbsz*0.4375);
			}
			while ($string=~m{(J|S|f)}g){
				$count=$count+($tbsz*0.4063);
			}
			while ($string=~m{(1)}g){
				$count=$count+($tbsz*0.3625);
			}
			while ($string=~m{(r)}g){
				$count=$count+($tbsz*0.35);
			}
			while ($string=~m{(s)}g){
				$count=$count+($tbsz*0.3188);
			}
			while ($string=~m{(l|t)}g){
				$count=$count+($tbsz*0.285);
			}
			while ($string=~m{(l)}g){
				$count=$count+($tbsz*0.25);
			}
			while ($string=~m{(i|j)}g){
				$count=$count+($tbsz*0.2345);
			}
		}else{
			while ($string=~m{(W)}g){
				$count=$count+($tbsz*0.7844);
			}
			while ($string=~m{(w)}g){
				$count=$count+($tbsz*0.6989);
			}
			while ($string=~m{(A)}g){
				$count=$count+($tbsz*0.5656);
			}
			while ($string=~m{(X)}g){
				$count=$count+($tbsz*0.55);
			}
			while ($string=~m{(Q|O)}g){
				$count=$count+($tbsz*0.5469);
			}
			while ($string=~m{(R|K|Y)}g){
				$count=$count+($tbsz*0.5375);
			}
			while ($string=~m{(C|V)}g){
				$count=$count+($tbsz*0.5313);
			}
			while ($string=~m{(N)}g){
				$count=$count+($tbsz*0.5283);
			}
			while ($string=~m{(D|G|T)}g){
				$count=$count+($tbsz*0.525);
			}
			while ($string=~m{(S|H)}g){
				$count=$count+($tbsz*0.5125);
			}
			while ($string=~m{(B)}g){
				$count=$count+($tbsz*0.5);
			}
			while ($string=~m{(4|U|Z)}g){
				$count=$count+($tbsz*0.4875);
			}
			while ($string=~m{(8|9|P|3|6|7)}g){
				$count=$count+($tbsz*0.475);
			}
			while ($string=~m{(0|5|a|2)}g){
				$count=$count+($tbsz*0.4688);
			}
			while ($string=~m{(x|y)}g){
				$count=$count+($tbsz*0.4594);
			}
			while ($string=~m{(L|b|g|o|p|q|v)}g){
				$count=$count+($tbsz*0.4469);
			}
			while ($string=~m{(E|F|c|d|e)}g){
				$count=$count+($tbsz*0.4438);
			}
			while ($string=~m{(h)}g){
				$count=$count+($tbsz*0.4313);
			}
			while ($string=~m{(n|u)}g){
				$count=$count+($tbsz*0.4219);
			}
			while ($string=~m{(z|J|k)}g){
				$count=$count+($tbsz*0.4031);
			}
			while ($string=~m{(s|r)}g){
				$count=$count+($tbsz*0.3969);
			}
			while ($string=~m{(t)}g){
				$count=$count+($tbsz*0.3219);
			}
			while ($string=~m{(f)}g){
				$count=$count+($tbsz*0.3188);
			}
			while ($string=~m{(1)}g){
				$count=$count+($tbsz*0.3031);
			}
			while ($string=~m{(j)}g){
				$count=$count+($tbsz*0.2438);
			}
			while ($string=~m{(I|i|l)}g){
				$count=$count+($tbsz*0.1438);
			}
		}