Select Code to Download

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