No need for an external module. Just use Text::ParseWords module (part of perl standard distribution):

use Text::ParseWords;

my $line = "'Pugh.Pugh'.Barney.McGrew.Cuthbert.Dibble.Grub";
my @words = quotewords('\.', 0, $line);
[download]

/prakash