my ($question, $answer) = split /\? /, $line;