open INFILE,  "<:utf8" , $infilename || die ("can't open $infilename") ;
 
    while  (my $line = decode_utf8(<INFILE>)) {
    }

##</code><code>##

    open INFILE,  "<:utf8" , $infilename || die ("can't open $infilename") ;
    @lines = <INFILE>;