use utf8;
binmode(STDOUT, ":utf8");
use open ':encoding(utf8)'; # input/output default encoding will be
                                # UTF-8
elsif (($str_char eq "l") && ($next eq "j")){
$lj = "љ";