my @array = split //, $s;