my ($domain) = ($email =~ /@([a-zA-Z0-9.-]+)$/);

if( defined $domain ) {
	print "Domain is $domain\n";
} else {
	print "Invalid or missing domain name ...\n";
}