my @au =  map '<contributor">'.$_.'</contributor>', split /(,|(?=<\/SUP>)) /, $au;