in reply to regex needed for dot delimited string

Assuming there are no empty strings between the dots: 
    @chunks = $str =~ /[^.]+(?:[.][^.]+){0,3}/g;

[download]

Abigail

In Section Seekers of Perl Wisdom