>perl  -nlE "say sprintf qq(caption%03s.txt),$count++" one.txt two.txt three.txt

caption000.txt
caption001.txt
caption002.txt