perl rename.pl -n "s{(\d+)(?= - \d+\.jpg$)}{ sprintf q(%03d), $1 }e" *.jpg