anchor.diff:  %%--------------------------------------------------------------------
   -spec validate_email(binary()) -> boolean().
   validate_email(Email) ->
  -    case re:run(Email, ?mail_validation_regexp) of
  -        {match, _} -> true;
  +    case re:run(Email, ?EMAIL_VALIDATION_REGEXP, [{capture, none}]) of
  +        match -> byte_size(Email) =< ?EMAIL_MAX_LENGTH;
           _ -> false
       end.
   
  
positive.code: 
  
  %%--------------------------------------------------------------------
  %% @doc Performs URL-uncoded string decoding
  %% @end
  %%--------------------------------------------------------------------
  -spec url_decode(Data :: binary() | string()) -> binary().
  
negative.code: %%--------------------------------------------------------------------
  -spec normalize_email(binary()) -> binary().
  normalize_email(Email) ->
      case binary:split(Email, <<"@">>, [global]) of
          [Account, <<"gmail.com">>] ->
              NoDots = binary:replace(Account, <<".">>, <<"">>, [global]),
              <<NoDots/binary, "@gmail.com">>;
          _ ->
              Email
      end.