in reply to Using punctuation to split a text
split /[.!]/, $text;
So this should do the trick:
@sentences =split([.?!\L], $text);
Thank you for your help.
An organised event
A traditional gathering
With family and friends
I don't celebrate the New Year
Adjusting my clocks for the Leap Second
I can't remember
Results (188 votes). Check out past polls.