The "push ... while" is not needed:

   my $string = "this 12345567890 is a 1029384756 test";

   my @results = $string =~ /\d{10}/g;

   print "@results\n";
[download]