use Devel::Peek;

Dump(pack('a*','123456') . pack('a', 0x1c));

Dump(pack('a*','123456') . pack('a', "\x1c"));