Bueno, lo que puedes hacer es abrir un fichero temporal, en modo escritura.
Luego, cambiar el print de la línea 10 para que, en vez de enviarlo hacia la salida estándar, lo haga a ese nuevo fichero temporal.
Después del bucle, solo tienes que hacer un
rename 'temporal', 'kk.txt'; para que el temporal, ya modificado, sustituya el archivo original.
Todo esto lo tienes explicado en la pregunta
How do I change, delete, or insert a line in a file, or append to the beginning of a file? del perlfaq5.
Como se comenta ahí, se puede usar el tradicional
Tie::File o el más moderno
File::Slurp:
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use File::Slurp qw( edit_file_lines ) ;
my $renglon = 0;
edit_file_lines { $_ = '' if ++$renglon == 2 } 'kk.txt' ;
__END__
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
