x <- c("GO_POSITIVE_REGULATION_OF_VIRAL_TRANSCRIPTION","POSITIVE_REGULATION_OF_VIRAL_TRANSCRIPTION")
gsub("(?:\\G(?!^)|^GO_)([^_]*)_", "\\1 ", x, perl=TRUE)
eCA8LSBjKCJHT19QT1NJVElWRV9SRUdVTEFUSU9OX09GX1ZJUkFMX1RSQU5TQ1JJUFRJT04iLCJQT1NJVElWRV9SRUdVTEFUSU9OX09GX1ZJUkFMX1RSQU5TQ1JJUFRJT04iKQpnc3ViKCIoPzpcXEcoPyFeKXxeR09fKShbXl9dKilfIiwgIlxcMSAiLCB4LCBwZXJsPVRSVUUp