eg_str <- "[probability space](posts/probability space.md) is ... [Sigma Field](posts/Sigma Field.md)"
gsub("(?:\\G(?!^)|\\()[^()\\s]*\\K\\s+(?=[^()]*\\.md\\))", "_", eg_str, perl=TRUE)
ZWdfc3RyIDwtICJbcHJvYmFiaWxpdHkgc3BhY2VdKHBvc3RzL3Byb2JhYmlsaXR5IHNwYWNlLm1kKSBpcyAuLi4gW1NpZ21hIEZpZWxkXShwb3N0cy9TaWdtYSBGaWVsZC5tZCkiCmdzdWIoIig/OlxcRyg/IV4pfFxcKClbXigpXFxzXSpcXEtcXHMrKD89W14oKV0qXFwubWRcXCkpIiwgIl8iLCBlZ19zdHIsIHBlcmw9VFJVRSk=