sub hexdump {
    my $s = shift;
    print join " ", unpack("(H2)*", $s), "\n";
}
# ...
hexdump($x);

##</code><code>##

c3 82 c2 a9 c3 82 c2 ae c3 a2 c2 84 c2 a2 c2 a9 c2 ae e2 84 a2

##</code><code>##

_________ $r (auto-upgraded) _________    ________ $u ________
c2    a9    c2    ae    e2    84    a2    c2-a9 c2-ae e2-84-a2
|     |     |     |     |     |     |     |  |  |  |  |  |  |
c3-82 c2-a9 c3-82 c2-ae c3-a2 c2-84 c2-a2 c2-a9 c2-ae e2-84-a2
     ©          ®     â     U0084 ¢     ©     ®     (TM)