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