While not being quite as restrictive as some of the examples above, this should give you good, basic 'a@b'-type email address checking:

if ($entry =~ /[^\@]+\@[^\@]+/) {

Add more characters to the negated classes to make it more restrictive, or leave it as is for the basic check.