perl Text-Diff