my ($domain) = ($email =~ /@(.*)/);

print "Domain is $domain\n";