@sents=split(/([.?!]|[:lower:]\u)/,$text);