@array = unpack 'x*X3 .@0/(a4X3)', $string;