if ($entry =~ /^([a-zA-Z0-9\@_\.]*)$/) {