$_=".\n";
s//Just another perl hacker/;
while (s/.//) {
  print;
}