$ans = () = $str =~ m/$SrchStr/g;