in reply to Matching Problem

The grouping is a little off: 
$title =~/(.*?)((?:\w+|\W+)\.\w+)(.*?)/ig

[download]

In Section Seekers of Perl Wisdom