[antonym]

Код:

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

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

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