Regex 提取电子邮件地址，并使用正则表达式替换字符

我正在尝试使用Reg-ex表达式来匹配以格式E开头的电子邮件地址，并将AT替换为实际的@符号

以下是一个例子：

E-CANAD.JACK在EXAMPLE.COM

---

所需的输出需要看起来像CANAD。JACK@EXAMPLE.COM.

您没有提到您的语言，所以我假设是perl

替换：

[eE]-[a-zA-Z0-9]+？：[a-zA-Z0-9]+*？：在|在[a-zA-Z0-9]+？：[a-zA-Z0-9]+*[a-zA-Z]+ 作者：

$1@$2 更多：

可视化 演示者

---

你甚至不需要正则表达式来做这件事。我正在使用这个表达式来获取电子邮件匹配=？

s/^E-(.*) AT (.*)$/$1\@$2/;