sub utf2win{

my @mychr=split //,shift;

my $utfdd="\xD0\xB0\xD0\xB1\xD0\xB2\xD0\xB3\xD0\xB4\xD0\xB5\xD1\x91\xD0\xB6\xD0\xB7\xD0\xB8\xD0\xB9\xD0\xBA\xD0\xBB\xD0\xBC\xD0\xBD\xD0\xBE\xD0\xBF\xD1\x80\xD1\x81\xD1\x82\xD1\x83\xD1\x84\xD1\x85\xD1\x86\xD1\x87\xD1\x88\xD1\x89\xD1\x8A\xD1\x8B\xD1\x8C\xD1\x8D\xD1\x8E\xD1\x8F\xD0\x90\xD0\x91\xD0\x92\xD0\x93\xD0\x94\xD0\x95\xD0\x81\xD0\x96\xD0\x97\xD0\x98\xD0\x99\xD0\x9A\xD0\x9B\xD0\x9C\xD0\x9D\xD0\x9E\xD0\x9F\xD0\xA0\xD0\xA1\xD0\xA2\xD0\xA3\xD0\xA4\xD0\xA5\xD0\xA6\xD0\xA7\xD0\xA8\xD0\xA9\xD0\xAA\xD0\xAB\xD0\xAC\xD0\xAD\xD0\xAE\xD0\xAF";
my @strutf=split //,$utfdd;




my @strwin=('а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч',
         'ш','щ','ъ','ы','ь','э','ю','я','А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й','К','Л','М','Н','О','П',
         'Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я');



my $nwstr="";
my $len = scalar(@mychr);
my $k;
my $i;
my $j;

for($i= 0 ;$i<$len;$i++){
	
	if($mychr[$i] lt '\x7F'){
        $nwstr="$nwstr$mychr[$i]";
        next;
        }
	
	$k= 0 ;
	for($j= 0 ;$j< 132 ;$j+= 2 ){
	
	if(($mychr[$i] eq $strutf[$j]) && ($mychr[$i+ 1 ] eq $strutf[$j+ 1 ])){
	 $nwstr="$nwstr$strwin[$k]"; last;}
	 
	 
	 $k++;
	}
	$i++;

 }

 return $nwstr;

}