$line = "Pugh.Pugh.Barney.McGrew.Cuthbert.Dibble.Grub";
$line =~ s/\./\n/g;
$line =~ s/([^\n]*)\n/$1./;
print $line;