>perl -nlE "say sprintf q(caption%03s.txt),$1 if $ARGV =~ /.*([\d]+).*/" one01.txt one02.txt

caption001.txt
caption002.txt