s/((.)\2*)\1/$1/g;