Help for this page

Select Code to Download

Select or download this

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

Select or download this

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