perl -lpe's/([^,]+)$/ sprintf "%05s", $1 /e' yourfile