Man, 40, due in court charged with Perth High Street assault