my $s = 'A3xyz45M98AB7Z9';
$s =~ s/([A-Za-z]+\d+)(?!$)/$1:/g;
print "s='$s'\n"