Преобразование из UTF-8 в KOI8-R:

   use Unicode::Map8;
   use Unicode::String qw(utf8);
   my $koi8 = Unicode::Map8->new("koi8-r");
   $koi8_string = $koi8->to8(utf8($utf8_string)->utf16);

Обратное преобразование

   use Unicode::Map8;
   use Unicode::String qw(utf16);
   my $koi8 = Unicode::Map8->new("koi8-r");
   $utf8_string = utf16($koi8->to16($koi8_string ))->utf8;

Другой метод:

   use Encode;
   $koi8_text = from_to($utf8_text, "utf8", "koi8-r");
   $utf8_text = from_to($koi8_text, "koi8-r", "utf8");

URL:
Обсуждается: http://www.opennet.dev/tips/info/713.shtml

• Преобразование текста из UTF-8 в KOI8-R и обратно на языке Perl,Вася, 01:05 , 16-Сен-14

[Tue Sep 16 03:04:07.176444 2014] [:error] [pid 15279] Undefined subroutine &ModPerl::ROOT::ModPerl::Registry::var_www_html_proxy143_2etk_view_msg_2epl::utf16 called at /var/www/html/proxy143.tk/view_msg.pl line 105.\n