$ perl -spi -e 's/^To:\s+[\.\@\D\,]*/To: email.com/' FILE

##</code><code>##

open (INFILE, "<$dirContent");# this is ok... but...
open (OUTFILE, "<$dirContent"); # this is fishy.