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

##</code><code>##

@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

##</code><code>##

$s = '1 23 456 789 01 23 456';
push @results, $1 while $s =~ /((?:\b\d{1,2} )+\b\d{3,})/g;
print "Match: $_\n" for @results;
# Prints:
# Match: 1 23 456
# Match: 01 23 456