Help for this page
> perl -ne ' BEGIN { $i = 0 }; ... s/^/mv /; s/$/" testfile" . ++$i/e; print' filenames.txt > renames.sh
> sh renames.sh