If your original code were rewritten as

UPDATE AccountAuthorizationInformation 
INNER JOIN AccountStatus ON 
    [AccountAuthorizationInformation].[Account_Authorization] = 
    [AccountStatus].[Account_Authorization] 
  SET AccountAuthorizationInformation.Settle_Date = 
    [AccountStatus].[Status_Date] 
  WHERE
    (
      ( [AccountStatus].[Account_Authorization] = 
        [AccountAuthorizationInformation].[Account_Authorization])
      And 
      ( [AccountAuthorizationInformation].[Settle_Date]='')
    )
[download]

it would be clearer. Except for square brackets around the table and field names, it looks like SQL.

Was that your question?

And this has what to do with Perl?

--t. alex
Life is short: get busy!