perl '-pes/(.)\1+/\1/g'