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