c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
 ;;
 my $string = pack('a*', '123456');
 dd $string;
 ;;
 print substr $string, 0, 1;
 printf qq{%02x \n}, substr $string, 0, 1;
 printf qq{%02x \n}, '1';
 ;;
 foreach my $c (unpack 'C*', $string) { printf '%02x ', $c; }
 print '';
 ;;
 $string .= qq{\x1c};
 dd $string;
 ;;
 foreach my $c (unpack 'C*', $string) { printf '%02x ', $c; }
"
123456

1
01
01
31 32 33 34 35 36
"123456\34"

31 32 33 34 35 36 1c