Word/punctuation split improved to avoid treating punctuation and newline symbols as part of the word.

Author: netangel

lib/Text/WordDiff.pm

@@ -10,7 +10,7 @@ $VERSION = '0.08';
 
 # _Mastering Regular Expressions_, p. 132.
 my $BEGIN_WORD = $] >= 5.006
-    ? qr/(?<!\p{IsWord})(?=\p{IsWord})/msx
+    ? qr/(?:(?<!\p{IsWord})(?=\p{IsWord})|(?<!\p{IsPunct})(?=\p{IsPunct})|(?<!\p{IsCntrl})(?=\p{IsCntrl}))/msx
     : qr/(?<!\w)(?=\w)/msx;
 
 my %styles = (