my $string = pack('a*','123456');
foreach (my $i=0; $i<length($string); $i++) { printf("%02x ", substr($string,$i,1)); }
print "\n";

##</code><code>##

$string .= pack('a', 0x1c);
foreach (my $i=0; $i<length($string); $i++) { printf("%02x ", substr($string,$i,1)); }
print "\n";