in reply to Supress similar chars in the string

s/(.)\1{3,}/$1 x 3/ge

[download]

In Section Seekers of Perl Wisdom