open (LS, "/bin/ls -1 *.JPG *.jpg *.jpeg|") || die "Couldn't open ls: $!\n";

while (<LS>) {
  chomp;
  next if ($_ =~ m/\.web\./i ); 
  my $number = $_;
  $number =~ s/^DCP_//i;
  $number =~ s/\.JPG//i;

  print "$_ $number" . "_\n";

}