pat <-"\\S*[^[:alnum:][:space:]?!\",();:.'/-]+\\S*"
x <-"But what's about in a interacting QFT a 2-particla state in the far past: $|E_{\\bf p_1}, {\\bf p_1}, E_{\\bf p_2} {\\bf p_2}>$ which undergoes"
[1] "But what's about in a interacting QFT a 2-particla state in the far past: which undergoes"
[1] "But what's about in a interacting QFT a 2-particla state in the far past: which undergoes"