#!/usr/bin/perl -w

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