print unpack "H*", pack("H*", "a12");

##</code><code>##

my $string = "a12";
print unpack "H*", pack("H*", "0" x (length $string % 2) . $string);