$ perl -C -E ' my $x = "\x{201c}S\x{201d}"; say $x; { use bytes; printf "%vo\n", $x; } ' “S” 342.200.234.123.342.200.235