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