A very quick and dirty way of doing this would be:

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

This page is intentionally left justified.