`perl -p -e  's/^To: [\.\@\D\,]*/To:me@home.com/' Mailbox`;