$|++;
for (split //, "Just a proud\b\b\b\b\b\bnother Perl hacker,\n") {
  print;
  select (undef, undef, undef, 0.3);
}