$cuc = \'АБВГДЕЄЖЗИІЇЙКЛМНОПРСТУФХЦЧШЩЬЮЯЫЪЭ\';
$clc = \'абвгдеєжзиіїйклмнопрстуфхцчшщьюяыъэ\';
print $cuc."\\n";
$cuc =~ tr/\\xA8\\xC0-\\xDF/\\xB8\\xE0-\\xFF/;
print $cuc."\\n";
получается:
АБВГДЕЄЖЗИІЇЙКЛМНОПРСТУФХЦЧШЩЬЮЯЫЪЭ
абвгдеЄжзиІЇйклмнопрстуфхцчшщьюяыъэ
а хотелось бы получить на выходе $cuc и $clc