try

split'[\w|\W]';
[download]

Add codes if missing
or

my @array;
for(0..$#string){
   my $i = $_;
   push @array,substr($string,$1,1);
}
[download]