for (split //, $string) { print "$_\n"; }