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