# print "Тестовая строка" | perl -plne \'BEGIN{ use encoding "koi8-r",STDOUT => "cp1251"}\' | iconv -f CP1251 -t KOI8-R
Тестовая строка
# print "Тестовая строка" | perl -plne \'BEGIN{ use encoding "koi8-r",STDOUT => "utf8"}\' | iconv -f UTF8 -t KOI8-R
Тестовая строка
#
