local *nums;
our @nums;
$x =~ /
   \s  
   (?:
      [^\s\d]*
      (\d+)
      (?{ push(@nums, $1) })
   )*
/x;

##</code><code>##

local *nums;
our @nums;
$x =~ /
   ^ (?> \S* \s )
   \S*? (?<!\d)
   ( (?> \d+ ) )
   (?{ push(@nums, $1) })
   (?!)
/x;