Help for this page

Select Code to Download


  1. or download this
    while (my $line = <$fh>){ 
        if ($line =~ /From\:/ && $line =~ /Subject\:/) { 
            print $line; 
        } 
    }
    
  2. or download this
    while (my $line = <$fh>){ 
        if ($line =~ /From\:/ or $line =~ /Subject\:/) { 
            print $line; 
        } 
    }
    
  3. or download this
    while (my $line = <$fh>){ 
        if ($line =~ /From:/ or $line =~ /Subject:/) { 
            print $line; 
        } 
    }