I would also recommend to use a regex instead of a split as it allows you to check for valid domain name characters :

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

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