was haste denn schon probiert?

my ($d, $h, $m) = $string =~ m/(\d+)/g;