You have {$OUT = ($total_score == 0) ? "0" : $total_score ; } correct out of {$total_done}.

You've finished up the { @donetopics = split /\|/, $done_topics; if (scalar(@donetopics) == 1) { if ($donetopics[0] =~ m/tv/) {$_ = "television";} $OUT = "\u$donetopics[0] topic."; } elsif (scalar(@donetopics) == 2) { $last = pop @donetopics; for (@donetopics) { if ($_ =~ m/tv/) {$_ = "television";} $OUT .= "\u$_"; } $OUT .= " and \u$last topics."; } else { $last = pop @donetopics; for (@donetopics) { if ($_ =~ m/tv/) {$_ = "television";} $OUT .= "\u$_, "; } $OUT .= " and \u$last topics."; } } Would you like to try more topics?