in reply to Drop middle part in a substitution

    s/[.][^.]*(...)$/.$1/;

[download]
Abigail

In Section Seekers of Perl Wisdom