print "$_\n" for "'Pugh.Pugh'.Barney.McGrew.Cuthbert.Dibble.Grub"=~/('.+?'|".+?"|[^\.]+).?/g