#!/usr/bin/perl
#
# Copyright (C) 2001 Ignat Ikryanov <iignat@newmail.ru>
#

use strict;
my @INtext;

open (text, "ru_RU.po") || die "$!";
open (text1,">ru_RU.KOI8-R.po") || die "$!";

@INtext=<text>;
close(text);

foreach(@INtext)
{
    tr/¸éöóêåíãøùçõúôûâàïðîëäæýÿ÷ñìèòüáþ¨ÉÖÓÊÅÍÃØÙÇÕÚÔÛÂÀÏÐÎËÄÆÝß×ÑÌÈÒÜÁÞ/£ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀ³êãõëåîçûýúèÿæù÷áðòïìäöüñþóíéôøâà/;
    s/CP1251/KOI8-R/;

# You can alternatively use the following lines to change the conversion direction.
#    tr/£ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀ³êãõëåîçûýúèÿæù÷áðòïìäöüñþóíéôøâà/¸éöóêåíãøùçõúôûâàïðîëäæýÿ÷ñìèòüáþ¨ÉÖÓÊÅÍÃØÙÇÕÚÔÛÂÀÏÐÎËÄÆÝß×ÑÌÈÒÜÁÞ/;

    print text1;
}
close (text1);