use warnings; use v5.10; use utf8; my $utf8 = "\x{3bc}\x{1fc6}\x{3bd}\x{3b9}\x{3bd}"; say $utf8; { use open qw(:std :encoding(UTF-8)); say $utf8; }