Regex methods for extract function in tidyr using R for separating strings with different number of groups?

Question

I am reading in excel files to R that have different file names associated with their identity. Some of these file names are only distinguished from each other by a final g