use strict;
use warnings;
use utf8;

my $str = 'עוד להיט';

binmode STDOUT, ":encoding(utf8)";
print $str;

##</code><code>##

use strict;
use warnings;
use utf8;
use HTML::Entities;
my $str = '&#1506;&#1493;&#1491; &#1500;&#1492;&#1497;&#1496;';

binmode STDOUT, ":encoding(utf8)";
print HTML::Entities::decode ($str);