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