#!/usr/bin/perl
use utf8;
use strict;
use warnings;
use Data::Dumper;

binmode(STDOUT,':encoding(UTF-8)');
my $string ="üöäßÖÜÄ--𓀀𓀁𓀐\n";
print $string;
print Dumper($string);