package II8b55f24974af3d53369c3d9cea404f55::filters::ucase; use strict; use locale; use POSIX qw(setlocale LC_CTYPE); sub ucase { setlocale(LC_CTYPE, "ru_RU.CP1251"); my $uc = uc(shift); setlocale(LC_CTYPE, "C"); $uc; } 1; 