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.
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (524 votes). Check out past polls.