perl -i.bak -pe 's/\<time\>(\d+)\<\/time\>/\<time\>sprintf("%06d",$1)\<\/time\>/ if /\<time\>(\d{5})\<\/time\>/'  <file>