TEST <- 'Pia1.2016-10-08.1103+N2353_hc.tif'
sub('.*?\\.(\\d{4}-\\d{2}-\\d{2})\\..*', '\\1', TEST)
sub('.*?\\.\\d{4}-\\d{2}-\\d{2}\\.(\\d{2})(\\d{2}).*', '\\1:\\2', TEST)
VEVTVCA8LSAnUGlhMS4yMDE2LTEwLTA4LjExMDMrTjIzNTNfaGMudGlmJwpzdWIoJy4qP1xcLihcXGR7NH0tXFxkezJ9LVxcZHsyfSlcXC4uKicsICdcXDEnLCBURVNUKQpzdWIoJy4qP1xcLlxcZHs0fS1cXGR7Mn0tXFxkezJ9XFwuKFxcZHsyfSkoXFxkezJ9KS4qJywgJ1xcMTpcXDInLCBURVNUKQ==