#!/usr/bin/perl -w

#while (defined($nextname = <img_0???.jpg>)) {
###while (defined($nextname = <dsc_0???.jpg>)) {
while (defined($nextname = <dsc_0???.jpg>)) {
 # create filenames
 $filed = $nextname;
 $filev = $filed;
 $filev =~ s/dsc_0/d/;
### $filev =~ s/dsc_0/dsc/;
# $filev =~ s/dsc/d/;
 `mv $filed $filev`;
}