#!/usr/local/bin/perl
# KMB 2002 Nov 14
# Test: echo "The cat sat on the the dog.  Why why why?" | thethe.pl
# mcopy -o thethe.pl a:

$f=join '',<>;
foreach $m ($f=~/\b(\w+)\s+\1\b/gi) { print "Repeated word: '$m'\n"; }