Re^3: need to put values (from unpack) into array-ref

Here's another way, although it uses an additional temporary variable...

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

Jeff japhy Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and perl hacker
How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart

Comment on Re^3: need to put values (from unpack) into array-ref Download Code