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

##</code><code>##

my $domain = (split /\@/, $email)[1];