Однострочная команда Perl для переименования файлов

Пока что этот однострочный файл удаляет одну строку и переименовывает файл, но мне нужна помощь, чтобы изменить его так, чтобы он удалял эту строку Я ищу данные для и удаляю старое расширение файла .csv вместо добавления к нему. ( .csv.out ). Я не уверен, что это можно сделать с помощью однострочника.

Вместо этого добавляется расширение filename.csv.out

Пример

 test_20110824.csv.out

Однострочный:

find -type f -name '*.csv' -exec perl -i.out -wlne '/^Data for/ or print' {} \;

Я хочу заменить добавочный номер:

test_20110824.out