c:\@Work\Perl\monks>perl -le
"use strict;
 use warnings;
 use charnames qw(:full);
 ;;
 my $string = qq{123456\N{FS}};
 { local $, = q( );  print unpack '(H2)*', $string; }
"
31 32 33 34 35 36 1c

##</code><code>##

c:\@Work\Perl\monks>perl -le
"use strict;
 use warnings;
 use charnames qw(:full);
 ;;
 my $string = qq{123456\N{FS}};
 print join ' ', unpack '(H2)*', $string;
"
31 32 33 34 35 36 1c