s/(.)\1{3,}/$1$1$1/g;

##</code><code>##

    s/(.)\1\1\K\1+//g;