vecA <- c("Population 1222",
"Population 90over",
"population under78",
"population 99101",
"Population 1254",
"Population 78 92")
v <- gsub("^([[:alpha:]]+[[:blank:]]+)([[:digit:]]{2})\\s*([[:digit:]])", "\\1\\2 - \\3", vecA)
gsub("^([[:alpha:]]+[[:blank:]]+)(?|(over|under)(\\d+)|(\\d+)(over|under))", "\\1\\2 \\3", v, perl=T)
dmVjQSA8LSBjKCJQb3B1bGF0aW9uIDEyMjIiLAogICAgICAgICAgICJQb3B1bGF0aW9uIDkwb3ZlciIsCiAgICAgICAgICAgInBvcHVsYXRpb24gdW5kZXI3OCIsCiAgICAgICAgICAgInBvcHVsYXRpb24gOTkxMDEiLAogICAgICAgICAgICJQb3B1bGF0aW9uIDEyNTQiLCAKICAgICAgICAgICAiUG9wdWxhdGlvbiA3OCA5MiIpCnYgPC0gZ3N1YigiXihbWzphbHBoYTpdXStbWzpibGFuazpdXSspKFtbOmRpZ2l0Ol1dezJ9KVxccyooW1s6ZGlnaXQ6XV0pIiwgIlxcMVxcMiAtIFxcMyIsIHZlY0EpCmdzdWIoIl4oW1s6YWxwaGE6XV0rW1s6Ymxhbms6XV0rKSg/fChvdmVyfHVuZGVyKShcXGQrKXwoXFxkKykob3Zlcnx1bmRlcikpIiwgIlxcMVxcMiBcXDMiLCB2LCBwZXJsPVQpCg==