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