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