x <-  c('2020M6','2020M10')
sub("(M)([0-9])$", "\\10\\2", x)
sub("(M)([0-9])$", "\\10\\2", x, perl=TRUE)