open (INFILE, "<$dirContent");
open (OUTFILE, "<$dirContent");
while (my $row = <INFILE>) {
    if($row =~ /Cc:/){
   	$row =~ s/Cc: [\.\@\D\,]*//;
        print OUTFILE $row;
    }
    if( $row =~/^To:/){
	$row =~s/^To: [\.\@\D\,]*/To:email\@mail.com/;
        print OUTFILE $row;
    }
    print OUTFILE $row;}
}
close (INFILE);
close (OUTFILE);