my $au = '<AU>PAUL A. HUBBARD,<SUP>1</SUP> WENFENG YU,<SUP>2</SUP> HORST SCHULZ,<SUP>2</SUP> JUNG-JA P. KIM<SUP>1</SUP></AU>';

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

foreach my $line (@au) {
	$line =~ s/\,|<.?AU>|(>)\s/$1/gi;  
	print $line ."\n";
}