my $bob = "310B";
eval qq[print "\\x{$bob}"] ;