$cnt++ while $str=~/harsh/g;