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

##</code><code>##

  @array = $string =~ m/(?=(.{4}))/g;