$_="00 01 98 99";
s/(\d\d)/chr(0x80 + $1)/ge;
@f= map {sprintf "%x", $_} unpack("C*", $_);
print "@f\n";