$s = "ПРИВЕТ";
$s =~ tr/\xA8\xC0-\xDF/\xB8\xE0-\xFF/; # lc RusCyr Win1251
print $s;