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