perl Text-Patch