x <- c("11 846.4 A", "6 529.2 A",  "3 282.7 A")
 gsub("(*UCP)\\s+", "", x, perl=TRUE)