Select Code to Download

use strict;
use warnings;
...
my $d = decode('UTF-8', $r->[0][0]);
say data_string_desc($d);
print Dumper(\$d);

f0,a0,80,a0,f0,a4,88,82,f0,b1,86,85,f0,a3,91,a0,
UTF8 on, non-ASCII, 4 characters 16 bytes
...
UTF8 off, non-ASCII, 16 characters 16 bytes
UTF8 on, non-ASCII, 4 characters 16 bytes
$VAR1 = \"\x{20020}\x{24202}\x{31185}\x{23460}";