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