my $c = chr 0xA4;
print unpack "C*", $c; # 164