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