如何删除重复的字符但留下其中两个?

kpl*_*lla 3 regex string perl

如果有超过2个字符"Hiiiiiii My frieeend !!!!!!!"

我需要被简化为"Hii My frieend !!"

请注意,在我的语言中,有很多双字符的单词.Thnx提前

kplla

Dev*_*tas 10

Perl/regex(如果它不是英文的话,Perl给了我比Unicode更好的运气):

#!/usr/bin/perl

$str = "Hiiiiii My Frieeeeend!!!!!!!";

$str =~ s/(.)\1\1+/$1$1/g;

print $str;
Run Code Online (Sandbox Code Playgroud)