use strict;
use warnings;

my $str = '0 X X X X X X X X 1 X X X X X X X X 2 X X X X X X X X 3 X X X X X X X X 4 X X X X X X X X 5 X X X X X X X X 6 X X X X X X X X 7';
my @array = map {[split]} $str =~ /(.{16})/g;

print "@$_\n" for @array;