Elimina emails en texto

Esta función permite, dado un texto como parámetro, eliminar las referencias a correos,
sustituyendo cada uno por un mensaje del tipo *correo eliminado*

Cadena original: Esta es una dirección de correo: correo1@hotmail.com y esta es la otra: correo1@yahoo.com
Resultado: Esta es la dirección de correo: *correo eliminado* y esta es la otra: *correo eliminado*