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