Puedes usar las facilidades de Perl de edición "in situ":
Using bash Syntax Highlighting
perl -p -i -e 's/ ^ .* ( \( .*? \) ) .* $ /$1/x if $. == 1' kk.txt
Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
Ten en cuenta que si estás en Windows, deberás cambiar el tipo de las comillas, de simples a dobles.
Si vas a procesar más de un fichero, necesitarás reiniciar el contador de líneas ($.) cada vez que termine de leerse un fichero:
Using bash Syntax Highlighting
perl -p -i -e 's/ ^ .* ( \( .*? \) ) .* $ /$1/x if $. == 1; close ARGV if eof' *.txt
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
(sacado de un ejemplo de
eof() en perlfunc)