Hmmmm . . .not sure how efficient this is, but this is how I'd do it.

$paragraph = shift;
@sentences = split /[.!?]/;
foreach (@sentences) {
    last unless /\w/; #Make sure that we have words
    print unless /^\s*[A-Z]/;
}
[download]

Cheers,
Erik

Light a man a fire, he's warm for a day. Catch a man on fire, and he's warm for the rest of his life. - Terry Pratchet

Update:Fixed stupid bug.