how can I generally substract shared pattern from a list of names,
Given:
a <- c(\'dogcathello\', \'doghousehello\', \'dogpen\')
This w
