$s = 'aaabacadaabbbccccd'; 
print $1 while $s=~m[((.)(?!\2).)]g;;
ab
ac
ad
ab
bc
cd