#! /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);