my @pieces = $data =~ /(.{1,8})/g;