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

##</code><code>##

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

##</code><code>##

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