Perl

Highlight consecutive duplicated words with Perl

perl -pe 's/\b(\w+)\s+\1\b/\e[31m$&\e[0m/gi' gettysburg.txt