for (split //, $str, length $str) { ... }