my $foo = "\x4D";

print "$bla";

M

##</code><code>##

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

print $bar . "\n";

Illegal hexadecimal digit '$' ignored at roman.pl line 10.
4D.