#! /usr/bin/perl;

use File::Copy;
#! /usr/bin/perl;

use File::Copy;

$^I = '~';
open (IN, "file.txt");

s/To: [\.\@\D\,]*/To: someone\@email.com/ while <IN>;
close(IN);

##</code><code>##

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);