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

print $bar . "\n";

##</code><code>##

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