+use Encode;
+sub enc {
+ my $b = shift;
+ warn "# enc in ",Encode::is_utf8($b), dump($b);
+
+# $b = Encode::decode('iso-8859-1',$b); # XXX doesn't work!
+
+# Encode::from_to($b, 'iso-8859-1','utf-8');
+# Encode::_utf8_on($b);
+
+ Encode::_utf8_off($b);
+
+ warn "# enc out ",Encode::is_utf8($b), dump($b);
+ return $b;
+}
+sub l1 {
+ my $l = shift;
+ #return 'FIXME ref ' . dump($l) if ref $l;
+ return undef if ref $l;
+ return enc($l) if $l =~ m/([\x{80}-\x{ff}])/;
+ return $l;
+}
+
+my @authors;
+