perl -E '$x="2,42,1,3";  printf "%.2d ",$_ for  eval("($x)") ; print "\n"'
02 42 01 03