warn "Invalid file $file" unless $file =~ /^\d{3,6}\.jpe?g$/;