Select Code to Download

print Dumper $text;
$VAR1 = {
...
};
print $text->{'string'};
'Unicode surrogate U+DAED is illegal in UTF-8 at line 5.

local $SIG{__WARN__} = sub {
          print "WARNING!\n";
};