use utf8;
use Data::Dumper;
my $string ="üöäßÖÜÄ\n";
print $string;
print Dumper($string);