# How do I remove single-character whitespace between words, leaving multiple, contiguous, whitespace characters unchanged?

In a string, I want to remove only the single-character whitespace between printing characters, leaving any multiple, contiguous, whitespace characters between printing characters unchanged?

What is needed is:

f["Is This OK,  huh?"]

IsThisOk, huh?


StringReplace hasn't worked for me because I can't see how to restrict it to single-character whitespace.

StringReplace["Is This OK,  huh?", " " -> ""]


IsThisOK,huh?

My string comes from Import["url"] and has a length in excess of 250,000 characters.

StringReplace["Is This OK,  huh?",

StringReplace["Is This OK,         huh?",