Help for this page
my $s = 'A3xyz45M98AB7Z9'; local $, = ":"; print split /(?<=\d)(?=\D)/, $s;
my $s = 'A3xyz45M98AB7Z9'; local $" = ":"; print "@{[split /(?<=\d)(?=\D)/, $s]}";