note knew <p>This will do that for you:</p> <code>1 while $string =~ s/(.)(.*)\1/$1$2/g</code> 353072 353090