Index: trunk/tools/validate-composers.pl
===================================================================
--- trunk/tools/validate-composers.pl	(revision 763)
+++ trunk/tools/validate-composers.pl	(revision 763)
@@ -0,0 +1,18 @@
+open F, '../asma/Docs/Composers.txt' or die;
+1 until <F> =~ /^Unknown - /;
+<F>;
+my $n;
+my %countries;
+my ($real, $nick, $country) = '';
+while (<F>) {
+	print if $_ le $real;
+	if (($real, $nick, $country) = /^(.+?\S, .+?\S|<\?>) - (?:(.+?\S) - )?(.*\S)/) {
+		$n++;
+		$countries{$country}++;
+	}
+	else {
+		print;
+	}
+}
+print "Composers: $n\n";
+print "$_ - $countries{$_}\n" for sort keys %countries;