$text =~ s/(.)(?=\1\1\1)//gs;