Select Code to Download

$newword = join '', split(/(\w+)\1/, $word);

$newword = join '', split(/((\w)+)\1(\2{0,1})/, $word);