foreach my $ch (split // => $string) { .. }