my $length = my @elements = $s =~ /./sg;