Atualização de arquivo.

[Rafael Lebrão Martins]

Bom dia, Senhores. 
Tenho um arquivo de texto com várias seções.. 
Preciso inserir uma linha numa sessão específica. Tentei fazer o proposto 
assim: 

open (my $in, '+<', "$arquivo"); 
while (<$in>) { 
if (/SECAO QUE EU QUERO ADICIONAR A LINHA/) { 
print $in "algum texto $comando; 
}} 
close ($in); 

O problema é que  (algum texto "$comando") está sobrescrevendo a linha que 
está abaixo do título da 
seção. 
Já tentei resolver adicionando \n antes do comando print e até mesmo 
deixando um grande espaço entre o 
título da seção e o primeiro comando abaixo dele, mas não adiantou.