[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()) {
				<span class="old_text">
%				foreach ($diff->Items(1)) {
					<% display_pre($_) %>
%				}
				</span>
				<span class="new_text">
%				foreach ($diff->Items(2)) {
					<% display_pre($_) %>
%				}
				</span>
%			} else {
%				foreach ($diff->Same()) {
					<% display_pre($_) %>
%				}
%			}
%		}
[snip]