$_ = 'aaabbbbbbbbbbbbbccccccccccccccccccccc'; 
print "$1|$2\n" while (m[(.)(?>\1+)(.)]g);