x <- "N-Acetyl-cysteine used Yes or no?No.
Acetic acid used Yes or no?Y.
NBI used Yes or no? Y.
Diaphragmatic pinch:40cm
: Y -33cm.
Inlet patch - Yes or No: N.
No loss of stain."
cat(gsub(".*(?:no(?![?:])|[?:]\\s*N).*\\R*", "", x, perl=TRUE, ignore.case=TRUE), sep="\n")
eCA8LSAiTi1BY2V0eWwtY3lzdGVpbmUgdXNlZCBZZXMgb3Igbm8/Tm8uCkFjZXRpYyBhY2lkIHVzZWQgWWVzIG9yIG5vP1kuCk5CSSB1c2VkIFllcyBvciBubz8gWS4KRGlhcGhyYWdtYXRpYyBwaW5jaDo0MGNtCjogWSAtMzNjbS4KSW5sZXQgcGF0Y2ggLSBZZXMgb3IgTm86IE4uCk5vIGxvc3Mgb2Ygc3RhaW4uIgpjYXQoZ3N1YigiLiooPzpubyg/IVs/Ol0pfFs/Ol1cXHMqTikuKlxcUioiLCAiIiwgeCwgcGVybD1UUlVFLCBpZ25vcmUuY2FzZT1UUlVFKSwgc2VwPSJcbiIp