my %aff;
while($str=~/<affiliation id="([^"]*)"><label>(.+?)<\/label>/sgi){
$aff{$1}=$2;
}

for my $affid (sort keys %aff){
$str=~s#(<crossRef refid=")(">\Q$aff{$affid}\E</crossRef>)#$1$affid$2#sgi;		
}