Open FH,’file.txt’;
               while (<$FH>) {
                      $arr[$i].="$_";
               }
               close ($FH);
            $text=$arr[$i];
            $text =~ /<cc>([\s\S]+?)<\/cc>/;
            $Name_pre=$1;
            $Name=$1;
$Name=~ s/&amp;amp;/-/g;
$Name=~ s/&amp;/-/g;
$Name =~ s/-$//g;
            $st=$Name;
            $char=chop($st);
            if($char eq '-')
              {$Name=~ s/$//g;}
            $arr[$i]=~ s/$Name_pre/$Name/g;