koi8-r -> translit

быстрое решения откусить восьмой бит у каждого байта,
медленное, по большому счету,
уже не зависит от того что у тебя koi8-r, utf-8 или cp1251,
и нужны таблицы по преобразованию кирилицы в латиницу.

Рисуешь таблицу транслита (их полно готовых) в виде хеша типа

%T = ( а => 'a', б => 'b', ..., щ => 'scsh', ...);

Потом делаешь

sub transl { $T{$[0]} || $[0] };

(my $transl = $rus) =~ s/./transl($1)/ge;

use Text::Iconv;
use Lingua::RU::PhTranslit;
use Lingua::RU::Translit qw(translit2koi);

всем спасибо , тупо загнал в хеш гост-овскии стандарт , работает . 2 theserg. про иконв в курсе , его тоже пользую , а вот насчет последних 2 модулей - это наверно то что нужно было , но уже сам написал.