[antonym]

Код:

open (FL, 'text.txt');
while(<FL>)
{
if (index($_,'мыла')>=0) {print $_}
}
close FL;

Это самый дубовый вариант, не учитывающий ни кодировки, ни регистр символов. И вообще, использующий переменную по умолчанию :-)

По поводу поиска посмотрите хотя бы это

[Guest]

Большое спасибо :-)

[mrcnn]

другой вариант поиска -- *с использованием регулярных выражений. Регулярные выражения - очень мощный инструмент работы с текстом.

Код:

open (FL, 'text.txt'); 

while(<FL>) { 
 if ($_ =~ /мыла/) {
 *print $_;}
} 
close FL;

если надо "мыла" заменить на "мало" используешь нечто подобное:

Код:

open (FL, 'text.txt'); 

while(<FL>) { 
 if ($_=~s/мыла/мало/) {
 *print $_;}
} 
close FL;

в винде это сработает нормально только если файл test.txt в кодировке dos. *если в koi или win потребуется перекодировка искомой строки или считываемого файла.
Перекодировку можно реализовать тоже с помощью регулярных выражений.

[s]Исправлено: mrcnn, 7:41 14-03-2004[/s]