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

##</code><code>##

my ($length, @elements) = dismantle($s);

##</code><code>##

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

##</code><code>##

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