my $len = map $_, $str =~ /(.)/gs;