Padding File names with zeros

need to pad some file names with zeros? couldnt be simpler!

for f in foo[0-9]*; do mv $f `printf foo%05d ${f#foo}`; done

rename 's/\d+/sprintf("%05d",$&)/e' foo*