Select Code to Download

my $string= 'AAABBBCCCDD';
my $i=0;
my @words= grep $i=!$i,split /(?<=(.))(?!\1)/,$string;
print join "\n",@words,'';