my $cnt =()= $str =~ /./sg;