a = "#'YOUR_ANSWER
As_samp2 = 36
As_samp3 = 38
#'END_ANSWER"
b <-gsub(pattern = "^#'YOUR_ANSWER.*(?:\\R(?!\\h*#'END_ANSWER$).*)*\\R\\h*#'END_ANSWER$", a, replace="space for answer", per=T)
print(b)
YSA9ICIjJ1lPVVJfQU5TV0VSCiAgICAgICBBc19zYW1wMiA9IDM2CiAgICAgICBBc19zYW1wMyA9IDM4CgogICAgICAgIydFTkRfQU5TV0VSIgoKCmIgPC1nc3ViKHBhdHRlcm4gPSAiXiMnWU9VUl9BTlNXRVIuKig/OlxcUig/IVxcaCojJ0VORF9BTlNXRVIkKS4qKSpcXFJcXGgqIydFTkRfQU5TV0VSJCIsIGEsIHJlcGxhY2U9InNwYWNlIGZvciBhbnN3ZXIiLCBwZXI9VCkKcHJpbnQoYik=