PERL中用于电子邮件验证的正确正则表达式是什么？

可能重复：

我是stackOverflow的新用户。我有一个查询，它与PERL中的正则表达式有关。我想知道电子邮件的正确正则表达式。下面给出了创建正则表达式的示例

比如说,， abc123@yahoo.co.in或

---

abc345@gmail.com

电子邮件验证是一项非常复杂的任务，因此我建议使用以下代码：

  use Email::Valid;
  print (Email::Valid->address('maurice@hevanet.com') ? 'yes' : 'no');