You will need to install the Email::Valid module if it's not already installed. See the module documentation for further details.

Email::Valid

use Email::Valid;
print (Email::Valid->address('anyuser@domain.com') ? 'Good email address' : 'Bad email address');