($\, $,) = ("\n", " "); # set up output mode
$string = "A" . chr(180) . "B";  # Latin-1
print unpack "C*", $string;
$string .= pack "U0"; # zero length, UTF-8
print unpack "C*", $string;