my ($one, $two) = split( /\d+\s+/, $line);

##</code><code>##

  my ($one, $two) = split( /(\d+\s+)/, $line);

##</code><code>##

  my ($one, $two) = split /(?<=\d+)\s+/, $line, 2;