Select Code to Download

use strict;
use warnings;
...
$data{string} = $string;

print "$data{string}\n";

SV = PV(0x9766470) at 0x964eae8
  REFCNT = 1
...
  CUR = 34
  LEN = 36
a string with a wide character: Ā

use strict;
use warnings;
...
$data{string} = $string;

print "$data{string}\n";