Как подменить слово «на лету» слушая сокет, и тут же отправляя через sendmail?
Так, собственно говоря, правьте $newmsg перед выводом как вам надо, и всё.
Если же хотите, чтобы всё сделали за вас, то идите на фрилансим.
Не в ту сторону рыл, как упертый баран, спасибо разобрался.
$newmsg =~ s/Old/New/g;