in reply to Re^2: Excluding Words in RegEx
in thread Excluding Words in RegEx

I just copied the OP's pattern. But yeah, 
/^(\d{4}) ([^\.]+?[\.\!\?])$/

[download]

can be shortened to 

/^(\d{4}) ([^.]+?[.!?])$/

[download]

In Section Seekers of Perl Wisdom