(undef, my $domain) = split /\@/, $email;