# an alternate way, Filter
use encoding "euc-jp", Filter=>1;
use utf8;
# now you can use kanji identifiers -- in euc-jp!

##</code><code>##

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