perl -F, -aple"$_ = join ',', @F[0 .. $#F-1], sprintf '%05d',$F[-1]" in.csv