( $domain ) = $email =~ /\@([^\@]+)$/;