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