q <-"<U+00A6>  1000-66329"
sub("^\\s*<U\\+\\w+>\\s*", "", q)
trimws(gsub("^\\s*<U\\+\\w+>|-", " ", q))