my $b = "abefcdghijklmn";
my @a = (['start 0'], ['start 1']);
my $i = 0;
push @{ $a[$i++ % 2] }, $_ for unpack('(A)*', $b);