use encoding 'cp1251', Filter=>1;
use utf8;
my $ÿÿ="eqweq";
print $ÿÿ;