perl -pe 'BEGIN{binmode STDIN,":encoding(iso-8859-5)"} s/([^[:ascii:]])/sprintf("\\x{%.4x}",ord $1)/eg' < iso-cyrillic.txt