my ( $user, $addr ) = split /(?=@)/, $mail