perl -pe's/(@*(.))\1*/\2/g'