Perl extension for determining the edit transcript between two strings leigh <leigh@apple.com>