Костыльный способ перевести cp1251 в нижний регистр

$q=~tr/[\xC0-\xDF\xA8]/[\xE0-\xFF\xB8]/; # windows-1251
$q=~tr/[АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ]/[абвгдеёжзийклмнопрстуфхцчшщъыьэюя]/; #utf8