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