Maybe

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

update: actually, the unpack isn't even needed, as the result of the pack already is a byte string...