Помогите построить регулярное выражение при обработке строчки.

Задача такая, разослать пользователям электронные письма через perl-скрипт.


пример скрипта:

************************
open(MAIL, "|/usr/sbin/sendmail -t");

while($line=<STDIN>){
$pismo.=$line;
}
print MAIL $pismo;
close(MAIL);
************************

Как изменить $line во время добавление в $pismo, если там попалось значение "To: какойнибудь@email.ru" на "To: email@email.ru"?

Фактически задача подменить заголовок при отправки почты.

Делается в целью расслать важдую информацию пользователям сервера.