Select Code to Download

use strict;
use warnings;
...
my @array = map {[split]} $str =~ /(.{16})/g;

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

0 X X X X X X X
X 1 X X 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