+ $cboxrow++;
+ next;
+ }
+ if (!m/\S/) {
+ last;
+ }
+ die;
+ }
+}
+
+sub processfinal () {
+ while (<>) {
+ s/\n$//;
+ if (s/^Winners are //) {
+ s/\.$//;
+ my @w = split /\, /;
+ if (@w == 1) {
+ @w = split / and /, $w[0];
+ } else {
+ $w[$#w] =~ s/^and //;
+ }
+ print "Winners:\n";
+ @w = sort @w;
+ foreach my $i (0..$#w) {
+ printf " %s\n", $w[$i];
+ }
+ print "done.\n";