my $au = '<AU>PAUL A. HUBBARD,<SUP>1</SUP> WENFENG YU,<SUP>2</SUP> HOR
+ST 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";
}
[download]