A bit arcane, but ought to work, provided length($string) >= 3:

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

I'd recommend Athanasius's solution though:

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