#!/usr/bin/perl

use HTML::Entities;
use warnings;
#use	utf8;
#binmode(stdout => utf8);

my $unsafe_chars = "< & >";
my $string="<br>айизыощф<>";
print $string, "\n";
print encode_entities($string, "айизыощф");