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

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

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