use strict; use warnings; use feature 'say';
use Data::Dumper::AutoEncode;

use utf8;
my $str = 'Nach Rücksprache mit';

say Dumper $str;
say eDumper $str;

__END__

##</code><code>##

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

$VAR1 = 'Nach Rücksprache mit';