#this is Japanese...
my $file = 'unicode_8859_11.txt';
open FH, '<:encoding(iso-2022-jp)', $file  or die "$!\n";

##</code><code>##