perl String-Ediff