Я  начал изучать и тут как раз понадобился скрипт, который считывает построчно файл, находит строки содержащие какое-то конкретное слово и записывает эти строки в другой файл.....Я написал, но где то косяк, и я не вижу где: 
#!C:\Perl\bin\perl -w
open(OST, "ost.txt") || die;
open(NEW, ">new.txt") || die; 
@sor=<OST>;
print "Vvedite slovo "; 
$w=<STDIN>;
$z=0;
for ($i=0; $i <= $#sor; $i++)
{$a=$sor[$i]; @t=split(/ /, "$a");
for ($b=0; $b <= $#t; $b++)
{if ($t[$a] eq $w) 
{$r[$z]=$a;
$z=$z++;}}}
print NEW @r;
close(OST);
close(NEW);
Я только начал изучать перл, так что простите за возможно не самый рациональный способ выполнение задачи......а также за возможно глупый вопрос.....

если именно твой скрипт переделать. то вот держи:

А вообще лучше использовать код nitr'а 

Кстати, для решения такой задачки можно просто набрать в командной строке

 

Он записывает в файл new только последнюю строчку из ost.txt, если в ней есть введенное слово, а если нет то ваще ничего не записывает. За совет с командной строкой спасибо! Не подскажешь где можно найти информацию о других командах командной строки?

Добавлено @ 14:05 
Nitr большое спасибо: то что нужно, но я бы хотел узнать, где я ошибаюсь в своем скрипте....

Добавлено @ 14:13 
Nitr как сделаь так, что бы на регистр скрипт не обращал внимания?

Модератор: Название темы не отражает ее суть, или несколько вопросов в одном топе!

Ознакомьтесь с правилами форума!:

http://forum.vingrad.ru/index.php?showtopic=96391