my @array = grep length, split /(.{8})/, $input;