Select Code to Download

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