my $string='aabbccddee';

##</code><code>##

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

##</code><code>##

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