Select Code to Download

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

...
caption001.txt
caption002.txt

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

caption001.txt
caption002.txt

ls -l

...

 perl -MTie::Scalar -M"5;{package SN; use parent -norequire => 'Tie::S
+tdScalar';sub FETCH {print qq(Opening ${$_[0]}); ${$_[0]}}}; tie $ARG
+V, SN" 
      -nlE "say qq(\tprocessed $ARGV) if eof" 001.txt 002.txt 003.txt
...
        processed 002.txt
Opening 003.txt