PERL-скрипт для обработки файлов

Необходим скрипт/скрипты для обработки всех файлов в указанной директории, включая поддиректории.

на входе

- путь к директории

- адрес сайта, вида nic.ru

Шаги следующие:

1. замена всех ссылок и путей, включающих имя хоста, указанного в параметрах на относительные, например

http://nic.ru/contacts и http://www.nic.ru/contacts необходимо заменить на /contacts, и т.д.

2. удаление блока , у которого внутри содержится определенное ключевое слово/фраза, вида "script generated by google"

3. Все ссылки начинающиеся с "http:// нужно поместить в

.... и добавить им аттрибут rel="nofollow"

4. удаление 2х заданных строчек вида "//this script is inserted by ____"