while (my $line = <$fh>){ 
    if ($line =~ /From:/ or $line =~ /Subject:/) { 
        print $line; 
    } 
}