if($line =~ /<cc>([\s\S]+?)<\/cc>/){
#$line = $1;
$line =~ s/&amp;amp;/-/g;
$line =~ s/&amp;/-/g;
$line =~ s/-$//g;
}