$ echo '........ aaaaaaaasssssss __________ ++++++++++ ---------' |
> perl -pe 's{(.)\1\1\K\1+}{}g'
... aaasss ___ +++ ---
$