Select Code to Download

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

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