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