perl PatchReader