#!/usr/bin/perl

$_ = ;

1 while s/\b(\w+)\s\1\b/$1/gi;

print;