#! perl -slw
use strict;
use Data::Dump qw[ pp ];

sysread( DATA, my $buffer, 80 ) or die $!;

my @matrixX10 = map[ unpack 'C*', $_ ], unpack '(a10)*', $buffer;
pp\@matrixX10;

my @matrixX5 = map[ unpack 'C*', $_ ], unpack '(a5)*', $buffer;
pp\@matrixX5;

__DATA__
12345678901234567890123456789012345678901234567890123456789012345678901234567890

##</code><code>##

C:\test\primes>..\junk94
[
  [49, 50, 51, 52, 53, 54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53, 54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53, 54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53, 54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53, 54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53, 54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53, 54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53, 54, 55, 56, 57, 48],
]

[
  [49, 50, 51, 52, 53],
  [54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53],
  [54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53],
  [54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53],
  [54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53],
  [54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53],
  [54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53],
  [54, 55, 56, 57, 48],
  [49, 50, 51, 52, 53],
  [54, 55, 56, 57, 48],
]


##</code><code>##

#! perl -slw
use strict;
use Data::Dump qw[ pp ];

sysread( DATA, my $buffer, 80 ) or die $!;

my @matrixX10 = map[ split 'C*', $_ ], unpack '(a10)*', $buffer;
pp\@matrixX10;

my @matrixX5 = map[ split 'C*', $_ ], unpack '(a5)*', $buffer;
pp\@matrixX5;

__DATA__
12345678901234567890123456789012345678901234567890123456789012345678901234567890

##</code><code>##

C:\test>junk94
[
  [1, 2, 3, 4, 5, 6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5, 6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5, 6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5, 6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5, 6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5, 6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5, 6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5, 6, 7, 8, 9, 0],
]

[
  [1, 2, 3, 4, 5],
  [6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5],
  [6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5],
  [6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5],
  [6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5],
  [6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5],
  [6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5],
  [6, 7, 8, 9, 0],
  [1, 2, 3, 4, 5],
  [6, 7, 8, 9, 0],
]