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