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