Заранее благодарен
А сама она не может?
#!/usr/bin/perl -w
use strict;
use Unicode::Map8;
use Unicode::String qw(utf8);
my $utf8_string = "строка в utf8"; # Я бы написал, но она гейтом побьется
my $koi8 = Unicode::Map8->new("koi8-r") || die;
print $koi8->to8(utf8($utf8_string)->utf16), "\n";
--
Павел Аммосов, email: apa...@aha.ru, icq uin: 19210183
www: http://isabase.philol.msu.ru/~apavel/