@results = $s =~ m/(\d+)/g;
$i = 1;
print("\$d", $i++, ": $_\n") for @results;
# Prints:
# $d1: 1
# $d2: 23
# $d3: 456
# $d4: 789
# $d5: 01
# $d6: 23
# $d7: 456