[tbone@horse1 email-valid]$ perl ev.pl
email jim@mail.com is  valid
email jim.@mail.com is not valid
email jim.beam@mail.com is  valid
email .jim@mail.com is not valid
email jim-@mail.com is  valid
email -jim@mail.com is not valid
[tbone@horse1 email-valid]$