foreach (split //, "Just another Perl hacker,\n") {
  print;
}