#!perl
#perlmonks node_id=1199762
use strict;
use warnings;
use charnames qw(:full); 
my $string = "123456\N{FS}";
$,=q( );
print unpack( '(H2)*', $string);

OUTPUT:
31 32 33 34 35 36 1c