x = " - 1 , очковый оцинкованный ёж я z ZZ 123"gsub("(*UCP)\\b\\p{L}\\b"," ", x, perl=TRUE)
Standard input is empty
[1] " - 1 , очковый оцинкованный ёж ZZ 123"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!