use open qw/ :std :utf8 /; # for printing to console

my $data = q{ "Nach R\x{fc}cksprache mit" };
print "<$data>\n";
my $str = eval $data;
print "<$str>\n";