Select Code to Download

for my $c (split //, $string) {
   print $c;
}

 
while ( $string =~ m/(.)/g ){
    print $1;
}