Select Code to Download

my $text = "0 X X X ...";
my @items = split(' ', $text);
...
  push(@array, [ splice(@items, 0, 8) ]);
}
pp \@array; use Data::Dumper;

die "incomplete last row\n"
   unless (scalar(@{$array[-1]} == 8);