use HTML::Entities;
my $str = <<EOH;
&#1054;&#1095;&#1077;&#1085;&#1100; &#1042;&#1072;&#1078;&#1085;&#1072;&#1103; &#1041;&#1080;&#1079;&#1085;&#1077;&#1089;-&#1064;&#1082;&#1086;&#1083;&#1072;
EOH
print decode_entities($str);