Select Code to Download

use strict; use warnings; use feature 'say';
use Data::Dumper::AutoEncode;
...
say eDumper $str;

__END__

$ perl 1182603.pl 
$VAR1 = "Nach R\x{fc}cksprache mit";

$VAR1 = 'Nach Rücksprache mit';