А теперь делаем оптимизацию и убираем 9 лишних символов )))

open(FILE, '<incom.txt');
while(<FILE>) {
print if /\@rambler\.ru/i;
}

Ну и если совсем упростить и минимизировать ))))

open(F, 'incom.txt'); while(<F>){ print if /\@rambler.ru/i }

Я специально не стал стал изменять имена дескриптора и файлов, перевод строк и тд, но раз уж на то пошло:
open(F,'i');while(<F>){print if /\@rambler.ru/i}

Добавлю отдельный твик ))

while(<>){ print if /\@rambler.ru/i }

Юзать как file.pl file_with_mails.txt
Жду ответа )))
))))

"оптимизация на размер исходника" - мне фраза кажется глупой

Вариант 1
Могу только пробелы убрать )
while(<>){print if /\@rambler.ru/i}
И запускать как f.pl i ))

Вариант 2 аka жесткий твик =)
while(<>){print if /\@r(.+)r.ru/i}
Выгода - 1 символ ))
Лично я не знаю подобного почтовика кроме рамблера

nerezus, да мы просто балуемся (или если хочешь - меряемся письками

как мне написали explode() не рулит, лучше strpos...

это так, просто скрипт брал из этого:
http://forum.antichat.ru/thread54946.html

strpos рулит не всегда кстати

__________________
Карфаген должен быть разрушен...