my $count = 1;

sub do_this{ 
 ...
 next unless $_ =~ m/(.*)(\.jpg)$/;
# untaint = $1,$2

# rename(OLDFILE, NEWFILE);
 rename($File::Find::dir.$1.'.jpg', $File::Find::dir.$count++.'.jpg');
}