print for unpack 'cXc/a* N', $x;
20
12345123451234512345
99999