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

print "Domain is $domain\n";