#!perl -p
s/(.)\1+/\1/g