> perl -ne '
BEGIN { $i = 0 };
next if /^\s*$/;
s/^/mv /;
s/$/" testfile" . ++$i/e;
print' filenames.txt > renames.sh