#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use utf8;

my $string = qq(issue: "Problém s\N{NO-BREAK SPACE}odesláním");

binmode *STDOUT, ':encoding(UTF-8)';
say $string;