Allow for sources to be given anywhere in the first line

gen.pl

@@ -74,11 +74,17 @@ while (<>) {
     undef $media;
     undef %last_option;
     undef @options;
-  } elsif (/^([01])(.*?)(?:\(([^()]*)\))?$/) {
+  } elsif (/^([01])(.*?)$/) {
     $single_choice = $1;
 
     $question = $2;
     chomp $question;
+
+    if ($question =~ /\(([^()]*)\)/) {
+      $source = $1;
+      $question =~ s/\Q($source)\E//;
+      chomp $source;
+    }
   } elsif (/^[|](.+)/) {
     if ($last_option{"option"}) {
       $last_option{"option"} .= $1;