You could get that kind of data from Algorithm::Diff. Split each string into an array of bytes before passing it in. Watch for multiple adjacent replacements which will appear as single replacements, of course.