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