($localpart, $domainpart) = split /\@/, $mailads, 2;