my $tstr = $str;
  my $count = $tstr =~ s/\*\*//g;