my $foo = "\x4D";

print "$bla";

M