Работа с текстовыми файлами

[Kli]

Помогите создать программу, которая открывает текстовый файл, ищет в нем строки определенного вида (т.е. надо ввести слово или слова, по которым и будут искаться строки), найдя их, сохраняет в другой текстовый файл.
P.S. Я нуб в таком деле. Прошу строго не судить

[Сtrl]

Язык какой? Оплата какая?

[Kli]

Сообщение от Сtrl

Язык какой? Оплата какая?

Всмысле язык? В котором записан текстовый файл?

[dixonich]

Сообщение от Kli

Всмысле язык? В котором записан текстовый файл?

язык программирования

[Kli]

Сообщение от dixonich

язык программирования

Любой. Ну чтоб понятно было при дальнейшем использовании. Паскаль

[dixonich]

если любой, то как-то так на перле.
не проверял.

use strict;
my $line;
print "Введите имя файла\n";
chomp(my $file = <>);
open F, "$file";
open P, "output.txt";
print "Введите шаблон для поиска\n";
chomp(my $pat = <>);
while(<F> == $line){
	print P $line if (/.*$pat.*/smg);
}

[Kli]

Большое спасибо за ваш труд и вашу готовность помочь. Но нету ничего подобного на Паскале?
P.S. Не знаю что такое "перл"