$ perl -MData::Dumper -wle '$Data::Dumper::Indent=0; $_="aaabbc"; print Dumper([split m/(?<=(.))(?!\1)/]);'
$VAR1 = ['aaa','a','bb','b','c','c'];