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