#!/usr/bin/perl -w

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