my $foo = "4D";
my $bar = "\x4D";

print $bar . "\n";