#!/usr/bin/perl -w

use strict;

opendir (DH, "./");
readdir(DH);
readdir(DH);

my $address;

while (defined($address = readdir(DH))) {	
    if($address =~ /(\.jpg|\.JPG)/){
        open (FH, '>' . $address) or die;
        print FH "place holder";
        close(FH);
    }
}