my $line = encode("utf8",$lineo);
open(TEK,">","temp.tex");
print TEK $line;