open($FH,'<','file.txt');
$arr[$i]=join('',(<$FH>));
close ($FH);
$arr[i] =~ /<cc>([\s\S]+?)<\/cc>/$1/;
$arr[i] =~ s/&amp;amp;/-/g;
$arr[i] =~ s/&amp;/-/g;
$arr[i] =~ s/\(/-/g; # I assume
$arr[i] =~ s/-$//;
if (substr($arr[i],-1,1) eq '-') {
   $arr[i]=~ s/-$//g; # I assume you meant, though you've already done it above
}