local $_ = "A3xyz45M98AB7Z9"; 
s/(?<=\d)\B(?=\D)/:/g;
print $_, $/;