for my $c (split //, $string) {
   print $c;
}
##</code><code>##

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