#!/usr/bin/perl -w

while (defined($nextname = <dsc_00??.jpg>)) {
 # create filenames
 $filed = $nextname;
 $filev = $filed;
 $filev =~ s/dsc_00/dsc0/;
 $filev =~ s/JPG/jpg/;
 printf "about to move $filed to $filev\n";
 `mv $filed $filev`;
}