print "$_\n" foreach (split(m/\G(([^\.]+)\.\2)|(?:(?!\2\.)\.)/g, "Pugh.Pugh.Barney.McGrew.Cuthbert.Dibble.Grub"));