This one is fairly easy to turn into a word based equivalent, you just have to replace split // with split /\W+/. But it just returns a distance, not the description of the differences as Text::EditTranscript does though.