my $cnt = @{[$str =~ /./sg]};