[snip]
% my @old_body = split(/\b/, $old_body);
% my @new_body = split(/\b/, $new_body);
% my $diff = Algorithm::Diff->new(\@old_body, \@new_body);
% while ($diff->Next()) {
% if ($diff->Diff()) {
% foreach ($diff->Items(1)) {
<% display_pre($_) %>
% }
% foreach ($diff->Items(2)) {
<% display_pre($_) %>
% }
% } else {
% foreach ($diff->Same()) {
<% display_pre($_) %>
% }
% }
% }
[snip]