$au =~ s{,(<SUP>.*?</SUP>)}{$1,}g;
$au = join '',
      map "<contributor>$_</contributor>\n",
      split /,\s*/,
      $au;