Puoi provare con questo script:

#!/usr/bin/perl

$my_dir = @ARGV[0] || die "Non è stata specificata la directory\n";
$old_ext = @ARGV[1] || die "Non è stata specificata l'estensione";
$nome = @ARGV[2] || die "Non è stato specificato il nuovo nome";
$nuova_ext = @ARGV[3] || die "Non è stata specificata la nuova estensione";
@files = `ls $my_dir`;
chop @files;

foreach $f(@files) {
$count++;
$f =~ /(^.*)\.$old_ext/;
rename("$my_dir/$f", "$my_dir/$nome$count.$nuova_ext");
}

Incollalo in kwrite e salvalo ad esempio come 'Rinomina.pl', rendilo eseguibile e lancialo con il comando:

perl Rinomina.pl /directory estensione nome n_estensione

dove:
/directory è la directory dei files da rinominare
estensione è l'estensione dei files da rinominare
nome è il nuovo nome dei files
n_estensione è la nuova estensione dei files

Nel tuo caso ad esempio:

perl Rinomina.pl /.../..../foto jpg 2004Mare jpg

Il risultato dovrebbe essere 2004Mare1.jpg, 2004Mare2.jpg,..ecc.

Ricordati però di rendere eseguibile lo script prima di lanciarlo.

mcz