Renomear Arquivos

Olá,

Pessoal alguém tem ou pode me ajudar com um script em qualquer linguagem que renomeie vários arquivos.

É algo assim, tenho vários arquivos em um diretório, ex: JoaoCarlos.zip, LogoTipo.psd, Documentos.txt, etc.

Gostaria de adicionar uma expressão no final dos arquivos e antes da extensão.

Adicionar a expressão "_secreto" em todos os arquivos na pasta atual, ficando assim:

JoaoCarlos_secreto.zip, LogoTipo_secreto.psd, Documentos_secreto.txt, etc.

Se der muito trabalho e alguém cobrar posso pagar com a gratidão, rs.. brincando, se der mto trabalho mesmo eu pago, desde que não seja muito.

Obrigado.

Da uma olhada neste tópico:
http://www.vivaolinux.com.br/topico/Shell-Script/Tratamento-de-texto/

#!/bin/bash
# name tratamento_de_texto.sh
# since 2011.01.16 23:58:00 (GMT -03:00)
# author Paulo Riceli Dias Lelis (./.ronin)
# more http://sekysu.blogspot.com

NOVO='_secreto'

for i in $(ls); do
echo $i | rename 's/\./\.'$NOVO'/'
done