my @matrix = map[ unpack 'C*', $_ ], unpack '(a' . NCOLS . ')*', $buffer;