[Cascavel-pm] Apagar nomes em arquivo.

[Rafael Lebrão Martins]

Boa tarde, pessoal. Abaixo está o trecho de um "código" que estou escrevendo 
para apagar vários valores em um arquivo de texto. Quando digito os nomes 
que serão removidos e teclo enter, todos os dados do arquivo são apagados. 
Estou utilizando a sub "excluir_nomes" de forma incorreta?! 

my $name; 
foreach $name(@nomes) { 
excluir_nomes($name); 
} 
copy($file, $backup); 
open( ARQUIVO, '>', "$file" ); 
open( BACKUP, '<', "$backup" ); 

sub excluir_nomes { 
foreach (<BACKUP>) { 
next if $_ =~ /^$name$/; 
print ARQUIVO $_; 
   } 
} 
close (ARQUIVO); 
close (BACKUP);