use open qw/ :std :utf8 /;
use Data::Printer;
my $str = "Nach R\x{fc}cksprache mit";
p $str;