Select Code to Download

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

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

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

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