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

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