574:$Question = (split(/[$d][$d]/,$QuestionLine))[1];
575:        $Category = (split(/[$d]/,$QuestionLine))[1];
 576:       $Answer = (split(/[$d]/,$QuestionLine))[2];