open FH, $filename || die $!;
foreach (<FH>) {
    next unless $_ =~ /--from/;
    print $';
};
close FH;