while (<*.TMB>) {
 my $new = $_;
 substr($new, -3) = "JPG";
 warn "$new already exists", next if -e $new;
 rename $_, $new or warn "Error renaming $_: $!";
}