use warnings;
use strict;

my $string = 'MD:Z:4C3C7C0T2^T9C44';

my @nums = $string =~ /\d+/g;

print "$_\n" for @nums;