my $domain;

(undefined,$domain) = split(/\@/,$email);

print "Domain is $domain\n";