$dir="/home/yehuda/img/jpg/";
chop $dir;

##</code><code>##

while (defined ($img=readdir DH)){
$img=~m/^(.*)\.(.*)\.(.*)/g;
$newname="$1.$3";

##</code><code>##

push @names,$img;
push @newnames,$newname;
}

##</code><code>##

close DH;

##</code><code>##

foreach $name(@names){
$i=$i+1 ;
$newname_=$newnames[$i-1];

##</code><code>##

$path="$dir/$name";
$target="$dir/$newname_";

##</code><code>##

chomp($target,$path);

##</code><code>##

rename ($path,$target) or die "Could not rename:$!";
print "  $path   is now $target \n";

##</code><code>##

$dir="/home/yehuda/img/jpg";

opendir(DH,$dir)or die "FOO BAR! $!\n";

while ( readdir DH)
{
    if ( -f "$dir/$_" && $m/^(.*)\.(.*)\.(.*)/ )
    {
        warn "cannot rename $dir/$_\n"
            unless rename "$dir/$_", "$dir/$1.$3";
    }
}
closedir DH;