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