my $input = '4142A0B1'; 
print unpack("a*", pack("H*", $input));   # "AB ±"