my $s = "123 45 6 789";
while ($s =~ m/\d+/g) {
  print "> $&\n";
}