Обработка файла

Семенов16 лет в сервисе
Данные заказчика будут вам доступны после подачи заявки
01.03.2010

Нужен скрипт на перл что б работал на activeperl , что сравнит 2 файла и покладет в отдельный файл строки что есть в исходном файле.