my $length = my @elements = split //, $s;