x <- 'The world is at end. What do you think? I am going crazy! These people are too calm.' strsplit(x, '(?<![^!?.])\\s+', perl=T)
Standard input is empty
[[1]] [1] "The world is at end." "What do you think?" [3] "I am going crazy!" "These people are too calm."