Warn if a comment starts with a wrong interjection

gen.pl

@@ -37,6 +37,16 @@ sub add {
   return unless %last_option;
 
   if ($last_option{"comment"}) {
+    if (defined $last_option{"correct"}) {
+      if (($last_option{"correct"} eq JSON::true) and
+	  ($last_option{"comment"} =~ /^\s*Nein,/)) {
+	warn "$ARGV:$.: Correct answer starting with \"Nein\"\n";
+      }
+      if (($last_option{"correct"} eq JSON::false) and
+	  ($last_option{"comment"} =~ /^\s*Ja,/)) {
+	warn "$ARGV:$.: Wrong answer starting with \"Ja\"\n";
+      }
+    }
     $last_option{"comment"} = md($last_option{"comment"});
   }