rename 's/^(\d+)-(\d+)-(\d+)/ sprintf("%04d-%03d-%02d",$1,$2,$3) /e'
でいいだろ。