in reply to How would I change a10 into A:10 in perl?
Or:
($combined = $topLeftCoord) =~ s/([a-z])(\d+)/\U$1:$2/; [download]