$_="alpha beta beta gamma gamma gamma";
while (s/((\w+)\s\2)/$2/) {};
print $_;

##</code><code>##

$_="alpha beta beta gamma gamma gamma";
s/((\w+)\s\2)/$2/g;
print $_;