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