perl -e '$str = q|aaabbbcccddd|; while($str=~m/(\S)\1\1/g){print @-[0]};'

0369