Hi, I novice in perl but I do think to do something like it:

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

Output: a|b b|c