Eu tenho um conjunto de arquivos com prefixo, digamos "pre_", em uma máquina Linux e só quero renomear todos esses arquivos removendo-os. Aqui está o código perl que escrevi, não apresenta nenhum erro, mas o trabalho não está concluído.
#!/usr/bin/perl -w
my @files = `ls -1 | grep -i \"pre_.*\"`;
foreach $file ( @files )
{
my @names = split(/pre_/, $file);
my $var1 = $names[1];
'mv "$file" "$var1"';
}