a <- "X/ZHEB100/TKN_VAR29380_timely_p1.txt"
a2 <- sub("^.*/([A-Z]{3})_VAR\\d+_timely(_[^_.]+)?\\.[^.]*$", "\\1\\2", a)
a2
b <- "X/ZHEB100/ZHN_VAR29380_timely.txt"
b2 <- sub("^.*/([A-Z]{3})_VAR\\d+_timely(_[^_.]+)?\\.[^.]*$", "\\1\\2", b)
b2
YSA8LSAiWC9aSEVCMTAwL1RLTl9WQVIyOTM4MF90aW1lbHlfcDEudHh0IgphMiA8LSBzdWIoIl4uKi8oW0EtWl17M30pX1ZBUlxcZCtfdGltZWx5KF9bXl8uXSspP1xcLlteLl0qJCIsICJcXDFcXDIiLCBhKQphMgpiIDwtICJYL1pIRUIxMDAvWkhOX1ZBUjI5MzgwX3RpbWVseS50eHQiCmIyIDwtIHN1YigiXi4qLyhbQS1aXXszfSlfVkFSXFxkK190aW1lbHkoX1teXy5dKyk/XFwuW14uXSokIiwgIlxcMVxcMiIsIGIpCmIy