m/REFDATA_ERROR\[
                 type=([^,]+),
                 system=([^,]+),
                 category=([^,]+),
                 code=([^\]]+)
               \]/x;    # The /x  added for readability