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