$x = pack 'c/a*N', '12345123451234512345', 99999;

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

##</code><code>##

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