x = "The \\ ' \\ \\ \\ ' \\ \\ \\ \\ 'quick \\ 'cunning\\ ' brown' fox 'jumps up \\ 'and\\ ' over' the lazy dog"
cat( x, sep= "\n " )
gr <- gregexpr( "(?<!\\ \\ )(?:\\ \\ {2})*\\ K'[^'\\ \\ ]*(?:\\ \\ .[^'\\ \\ ]*)*'" , x, perl= TRUE)
mat <- regmatches( x, gr)
regmatches( x, gr) <- lapply( mat, gsub, pattern= "\\ s" , replacement= "_" )
cat( x, sep= "\n " )
eCA9ICJUaGUgXFwnIFxcXFxcXCcgXFxcXFxcXFwncXVpY2sgXFwnY3VubmluZ1xcJyBicm93bicgZm94ICdqdW1wcyB1cCBcXCdhbmRcXCcgb3ZlcicgdGhlIGxhenkgZG9nIgpjYXQoeCwgc2VwPSJcbiIpCmdyIDwtIGdyZWdleHByKCIoPzwhXFxcXCkoPzpcXFxcezJ9KSpcXEsnW14nXFxcXF0qKD86XFxcXC5bXidcXFxcXSopKiciLCB4LCBwZXJsPVRSVUUpCm1hdCA8LSByZWdtYXRjaGVzKHgsIGdyKQpyZWdtYXRjaGVzKHgsIGdyKSA8LSBsYXBwbHkobWF0LCBnc3ViLCBwYXR0ZXJuPSJcXHMiLCByZXBsYWNlbWVudD0iXyIpCmNhdCh4LCBzZXA9IlxuIikK