TIMTOWTDI:

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;
[download]

Prints:

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
[download]