q <-"<U+00A6> 1000-66329"sub("^\\s*<U\\+\\w+>\\s*", "", q)trimws(gsub("^\\s*<U\\+\\w+>|-", " ", q))
Standard input is empty
[1] "1000-66329" [1] "1000 66329"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!