If $data may contain newlines, you'd want instead:

my @pieces = $data =~ /.{1,8}/gs;
[download]

(Also note that your () were unnecessary, since list context //g will return the entire match if there are no submatches.)