$combined =~ s/(\w)(\d+)/uc($1) . ":$2" /e;