$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