while(my $line=<DATA>){


if($line =~ /<cc>([\s\S]+?)<\/cc>/){

#print $name_pre;
my $name=$1;
my $name_pre = $1;
$name=~ s/&amp;amp;/&amp;/g;
$name=~ s/&amp;/-/g;
$name =~ s/-$//;
$name_pre=~ s/\Q$name_pre\E/\Q$name\E/g;
$name_pre =~ s/\\//g;
}
}
__DATA__
fg-&amp;amp;&amp;+(and(we-
<id>6VE4AGAfg-&amp;amp;&amp;+(and(we-</id><cc>fg-&amp;amp;sonia&amp;-nd_&amp;amp;lio_(we-</cc>