in reply to How would I change a10 into A:10 in perl?

Or:

($combined = $topLeftCoord) =~ s/([a-z])(\d+)/\U$1:$2/;