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