my @a = unpack('A10' x (length($string)/10) . 'A' . length($string)%10,$string);