Select Code to Download

my $string='aabbccddee';

push @row,$& while('aabbccddee'=~/\w{2}/g);

@row=('aa','bb','cc','dd','ee');