#!/usr/bin/perl

while (<>)
{
	s/\b(\w+)	# erkenne ein Wort
	\s		# welches durch ein Whitespace getrennt ist
	(?=\1		# Schaue ob danach das gleiche Wort vorkommt
	\b		# welches durch eine Wortgrenze endet
	(?!'\w		# Apostroph gilt aber nicht als Wortgrenze
	))//gix;
	print;
}