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

##</code><code>##

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