perl -e'$_='aaabbbbccccdddd';print"$1|$2\n" while(m[(.)\1*(.)]g);'