Добавляем ровно 4 символа в пример C!klodoL =)) :

open(FILE, '<incom.txt');
while(<FILE>) {
print $_ if $_ =~ /\@rambler/io;
}

Вуаля )))

Ну примеры, он видимо тут и придумывал, а ктож знает какая там у него база мыл.... ))))