простой вариант
$newLength = max(strrpos($body, '.'), strrpos($body, '!'), strrpos($body, '?'));
if($newLength < 1) $newLength = 100;
$body = substr($body, 0, $newLength);
более красиво будет с регулярным выражением. Это как раз возможность искать "массив"