perl -e 'opendir(DH,"/home/yehuda/img/jpg");while(defined ($file=readdir(DH))){$file=~m|(.*)\.(.*)\.(.*)|g; rename ($file, $1.$3)}'