Select Code to Download

my $str= "aaabbccccdd eee";
my @list;
...
    push @list, substr( $str, $pos, pos($str)-$pos );
    $pos= pos($str);
}

my @list= split /(?<=(.))(?!\1)/, "aaabbccccdd eee";
@list= @list[ map 2*$_, 0..@list/2-1 ];