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

##</code><code>##

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