What is the correct regular expression in PERL for email validation? [duplicate]

Question

Possible Duplicate:
What is the best regular expression for validating email addresses?

I am a new user in stackOverflow. I have a query which is related with regular expression in PERL. I want to know the correct regex for the email. Example is also given below to create a regex.

for example, [email protected] or [email protected]

Answer 1

Email validation is really complex task so i recommend to use this code:

  use Email::Valid;
  print (Email::Valid->address('[email protected]') ? 'yes' : 'no');