#!perl -p
s/@+(.)|(.)\2*/$1$2/g